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1. Introduction 


The computer codes DSIC and DMIC, written to implement the 


decomposition algorithms developed by Kochman (1976), are documented 


re} 


and listed in this report. These programs are designed to solve the 


block angular integer programming problem, 
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by decomposition into subproblems. The routine DSLC exploits certain 
special structures which arise when (P) has only a single linking 

constraint (2), i.e., when the constraint matrices ald) (l1<j<N) 
have only a single row. The routine DMIC treats the multiple linking 


constraints case. See Kochman (1976) for a detailed discussion of 
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these decomposition algorithms; a step-by-step statement of the 
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In addition to the programs DSLC and DMIC, the integer linear 
programming routine BB is documented and listed here. The computer 


eode BB is designed to solve the general (unstructured) integer 


program, 


(Q) maximize ex 


subject to Ax 


1A 
log 


L<=x<U, x integer, 


by branch-and-bound search. Specifically, the branch-and-bound 
algorithm BB follows the ideas of Dakin (1965). Tomlin's (1970) 
improved penalty calculations are used to guide the branching process, 
and the last-in-first-out (LIFO) rule is used to retrieve stored nodes 
in the search tree when backtracking oceurs*, 

The code BB is embedded in both the routines DSLC and DMIC 
for the purpose of solving the integer programming subproblems as 
required by the decomposition procedures. It should be noted, however, 
that the routine BB itself uses only standard methods. This code 
does not represent a new contribution to the field of integer pro- 


gramming; its documentation is included here for the sake of complete- 


ness. 


door further references, see Beale (1968), Beale and Small (1965), 
and Little, Murty, Sweeney, and Karel (1963). 


The linear programming portions of all three programs are | 
based extensively on the Fortran code LPM-1, developed by Dr. John | 
A. Tomlin of the Systems Optimization Laboratory, Department of 
Operations Research, Stanford University. LPM~1l is designed to 
implement the revised simplex method, using the product-form of the 
inverse. In adopting this code for use in the routines BB, DSLIC, and 
DMIC, the present author has modified LPM~1 appropriately to incorporate 
the bounded-variable technique as well. MLPM-1l has been documented 
by Tomlin (1975). 

The three codes BB, DSIC, and DMIC are written in FORTRAN IV 
for Stanford's IBM 370/168, with all instructions and data in-core. 

Each code is WATFIV compatible as well. The codes may be machine~ 
dependent, however, insofar as each code makes calls to the system 
subroutine PCLOCK. In each program, this subroutine is used to 
compute the total time the IBM 370/168 Central Processing Unit was 
available to the core partition containing the job. In addition, 
PCLOCK is used to determine the computation times required for various 
intermediate tasks performed by the algorithms. 

The various subprograms (exclusive of the main programs) which 
comprise each of the three codes are listed in Table I. These sub- 
routines are described in greater detail in the remaining sections 
of this report. More specifically, the branch-and-bound code BB is 
discussed in Section 2, while the decomposition codes DSLC and DMIC 
are discussed in Sections 3 and 4, respectively. Listings of the 
three programs, and the output results obtained in sample runs of 


each are given in Appendices I-III. 
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TABLE I 


Subpfograms for Computer Codes BB, DSIC, DMIC 


BB 


BLOCK DATA 

INPUT (IFPROB, INITBD) 
FTRAN (IPAR) 

BTRAN 

FORMC 

PRICE 

CHUZR 

WRETA 
SHIFTR(IOLD, INEW) 
INVERT 

UNPACK (IV) 

SHFTE 

UPBETA 
NORMAL(ITSINV) 
BANDB(INITBD, ITSINV) 
DCHUZR 

DCHUZC 

TESTX 

PENLTS 

BRANCH 

BKTRAK 

WRAPUP 


DS 
BLOCK DATA 
INPUT (IFPROB) 
F TRAN (IPAR) 
BTRAN 
FORMC 
PRICE 
CHUZR 
WRETA 
SHIFTR(IOLD, INEW) 
INVERT 
UNPACK (IV) 
SHFTE 
UPBETA 
NORMAL 
BANDB (INITBD) 
DCHUZR 
DCHUZC 
TESTX 
PENLTS 
BRANCH 
BKTRAK 


ALOCTE(IPAR, IRHS) 


DOMCHK (J, K) 
LDDATA (J) 
GETLBD (J) 


SAVER (J) 
DMBRAN(J, K) 
BBKTRK 
OUTSOL(INC) 
PHASE1(J) 


DMLC 


BLOCK DATA 
INPUT (IFPROB) 
FTRAN (IPAR) 
BTRAN 

FORMC 

PRICE 

CHUZR 

WRETA 
SHIFTR(IOLD, INEW) 
INVERT 

UNPACK (IV) 
SHFTE 

UPBETA 

NORMAL 
BANDB(INITBD) 
DCHUZR 
DCHUZC 

TESTX 

PENLTS 

BRANCH 

BKTRAK 


ALOCTE (IPAR) 
LDMSTR 

TESTZ 
DOMCHK (J, K) 
LDDATA(J) 
GETLBD (J) 
PISAVR(J) 
SAVER(J) 
DMBRAN(J, K) 
BBKTRK 
OQUTSOL(INC) 
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coordinate the application of the input (INPUT), linear pro 


(NORMAL) , 
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Main Program and In ne 


The main program for the 


Branch-and-Bound Code BB 


bra 


(OBJ, INVFRQ, 


have the following significance: 


INPROB 


INVFRQ 


ITRFRQ 
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ach-and-bound (BANDS), and output (WRAPUP) subr 
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branch={and-bound eode 


of input must contain values for the variable 
ITRFRQ, and INITBD in 4I4, I10 format. These 


problem identification number. (Must be nonzero 
wise, no computations are carried out anid BB te: 


immediately.) 


row number for objective row. Automatically se 


one by default if IOBJ is omitted. 


Parameter determining frequency with which besis 
version is carried out in the linear programming 
of the code; if INVFRQ = k, basis reinversion will 
earried out after every k (primel and/or dual) 


iterations. INVFRQ should not be set greater 


number of rows in the problem. 


upper limit on total iterations; all computations 


terminated if the total number of simplex iterations 


INITBD = initial lower bound estimate for maximum objective 


funetion value. The value of INITBD is used in 


os 


fathoming tests until the first integer-feasible 
incumbent solution is found with objective value 


greater than INITBD. 


BB assumes all cost coefficients are integer-valued, and 
takes advantage of this by rounding all upper bounds down to the 
nearest integer. The formats used for input of row and column 
names, objective function coefficients, constraint matrix coefficients, 
and right-hand side coefficients are identical to those used by LPV-1. 
(This format is consistent with standard MPS format.) Following 
input of these data, initial lower and upper bounds XLB(J), XUB(J) 
for all decision variables must be input in 15F5.0 format. 

The input for a sample run of BB is included in Appendix I, 


following the listing of the program. 


2.2. Restrictions Relevant to the Use of BB 
As currently configured, the following restrictions apply to 


the input data and problem size and complexity for BB: 


1. The number of rows (including the objective function row) must 
at be .LE. 60; the number of columns (including slack and artificial 


as variables generated by BB) must be .LE. 122. 


ne 


2. The number of nonzero objective and constraint coefficients must 


be .LE. 2000. 
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The list of stored nodes generated in the course of the branch- 


| 
| 
| 
| 


and-bound search must never exceed 500 nodes in length. 


Description of Subprograms 
BLOCK DATA--From LPM-1,; sets initial values for a number of 
variables used throughout’ the program. (See Tomlin (1975).) 
SUBROUTINE INPUT(IFPROB, INITBD)--From LPM-1; reads in all 
problem data. (See Tomlin (1975).) Modifiied to also read in 
lower and upper bounds on decision variables. 
Parameters: 

IFPROB (Output, INTEGER*4) Problem identification number 

(=INPROB) 

INITBD (Output, INTEGER*4) Initial lower bound estimate for 

maximum objective value. 
SUBROUTINE FTRAN(IPAR)--From LPM-1; performs forward +rensfor- 
mation of matrix columns by basis inverse. (See Tomlin (1975).) 
Parameters: 

IPAR (Input, INTEGER*4) Determines eta-vectors by which 

matrix column is updated. 
SUBROUTINE BTRAN--From LPV-1; performs beckward transformation. 
(See Tomlin (1975).) 
SUBROUTINE FORMC--From LPM-1; forms objective function vector 
for Phase I of primal simplex method. Used in conjunction with 
SUBROUTINE PRICE. (See Tomlin (1975).) Modified for bounded- 


variables. 
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SUBROUTINE PRICE--From LPM-1; prices out columns for primal 


simplex method and chooses pivot column. (See Tomlin (1975).) 
Modified for bounded-variables. 
SUBROUTINE CHUZR--From LPM-1; chooses pivot row for primal 
simplex method. (See Tomlin (1975).) Modified for 
bounded-variables. 
SUBROUTINE WRETA--From LPM-1; forms new eta-vectors for product- 
form of basis inverse. (See Tomlin (1975).) 
SUBROUTINE SHIFTR(IOLD, INEW)--From LPM-1; rearranges data 
storage. (See Tomlin (1975).) 
Parameters: 
IOLD, INEW (Both input, both INTEGER*4) IOLD indexes storage 
locations of data to be transferred by SHIFTR to locations 
indexed by INEW. 
SUBROUTINE INVERT--From LPM-1; Determines basis inverse by LU 
decomposition. (See Tomlin (1975).) Modified to update RHS 
with bounded-variables. 
SUBROUTINE UNPACK (IV)--From LPM-1; expands compressed matrix 
columns by inserting zeroes appropriately. (See Tomlin (1975).) 
Parameters: 
IV (Input, INTEGER*4) Indexes the matrix column to be 
expanded. 


SUBROUTINE SHFTE--From LPM-1; subroutine for INVERT. (See Tomlin 


(1975) .) 
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13. SUBROUTINE UPBETA~-From LPM-1; updates RHS following a primal 


or dual simplex pivot. (See Tomlin (1975).) Modified for 


oa 


bounded-variables. 

14. SUBROUTINE NORMAL(ITSINV)--From LPM-1; directs execution of 
primal simplex method. (See Tomlin (1975).) Modified for 
bounded-variables. 

Parameters: 
ITSINV (Input/Output, INTEGER*4) Counts number of simplex 
iterations since last basis inversion. 

15. SUBROUTINE BANDB(INITBD, ITSINV)--directs execution of branch- 
and-bound search for optimal integer solution, after optimal LP 
solution has been computed in SUBROUTINE NORMAL. Also directs 
reoptimization via dual simplex method following a branch in 


the forward direction. Calls NORMAL for reoptimization after 


backtracking. 

| Parameters: 

INITBD (Input, INTEGER*4) Initial lower bound estimate for 
maximal objective value. 
ITSINV (Input/Output, INTEGER*4) Counts number of simplex 
iterations since last basis inversion. 

16. SUBROUTINE DCHUZR--Selects pivot row for dual simplex method 

(analogous to CHUZR). 
17. SUBROUTINE DCHUZC--Selects pivot column for dual simplex method 


(Analogous to PRICE). 
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18. SUBROUTINE TESTX--Tests optimal LP solution at each node for 


fathoming. Installs new incumbent each time an improved 
2 integer-feasible solution is found. 

19. SUBROUTINE PENLTS--Computes Tomlin's improved up- and down-penalties 
and the Gomory penalty at each node. Checks for forced branches 
on both basic and non-—basice decision variables. If computed 
penalties are insufficient for fathoming, chooses branching 

| variable, calls SUBROUTINE BRANCH. 

20. SUBROUTINE BRANCH--Performs necessary bockkeeping for branching 
as indicated by SUBROUTINE PENLTS. Increments list of stored 
nodes; revises bounds on branching variable appropriately for 
branch in forward direction. 

21. SUBROUTINE BKTRAK--Uses last-in-first-out (LIFO) strategy to 
retrieve unfathomed nodes from list of stored nodes. 

22. SUBROUTINE WRAPUP--Outputs final solution information. (See 
output from sample run in Appendix I.) 

2.4. Description of Output 

: The output from BB takes the following form. Whenever a new 
; incumbent solution is found, the computation time required to reach 
5 
the solution, and the corresponding objective value cf the solution 
. are printed out. When all computations are completed (i.e., when the 
y optimal solution has been obtained, and its optimality verified), 
® the total solution time is output. The optimal integer solution is 
: then printed out in 2015 format. More specifically, the optimal 
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eolumn values are output in the order (1) objective function value, 
(2) slack variables, and (3) decision variables. The values of 

the first twenty columns are printed on the first line, the second 
twenty on the second line, ete., until all column values have been 
printed. The output from a sample run of BB is given in Appendix I, 


following the listing of the program. 


2.5. Further Comments 


As currently written, the Fortran code BB contains approximately 
1,450 source statements. All significant array storage is done in 
COMMON. In all, approximately 64K bytes of core storage are required 
by the three COMMON blocks. When compiled on Stanford's IBM 370/168 
under IBM's FORTRAN-H-extended compiler, with level two optimization, 


4 
y 


approximately 113K bytes of core are required for all instruction and 
data stovage. 

The mputer program BB was written by the present author in 
+h 


the course of completing his doctoral dissertation in the Department 


of Operati Research, Stanford University. Computational results 


(solution times) obtained on several test problems are presented in 


Chapter 6 of Kochman (1976). BB was last revised in September 1976. 


3. The Decomposition Code DSIC 


3,1. Main Program and Input Requirements 


The main program for the code DSIC coordinates the application 


as 


of the two phases of the decomposition algorithm for block angular 
integer programs with a single linking constraint. In Phase I, the 
problem data is input, and the computations required to construct 
the Master Problem are carried out. The branch-and-bound search for 

an optimal allocation of the linking resources is executed in Phase 2. 
DSIC has been written so that any of the four decision rules for 


subproblem selection may be specified by the user. (See Section 5.2 


in Kochman (1976).) This is done by assigning the appropriate value 
to the input variable IPARM, as described below. 

The first card of input for DSIC contains values for the 
variables NSUBS, IB, IPARM, and IZINC in 4110 format. These variables 


have the following significance: 


NSUBS = number of subproblems. 

IB = linking constraint right-hand side. 

IPARM = parameter determining which subproblem selection rule 
is used in Phase 2. 
Specifically, 


IPARM = 1 =*Selection rule based on average gaps between 


LP bounds and corresponding exact integer 


programming objective values in the subproblems. 
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IPARM = 2 =" Selection rule based on average slack in 


the linking constraint in the optimal sub- 


i problem solutions. 
IPARM = 3 Selection rule based on average subproblem 
solution times. 
IPARM = 4 = First unfixed subproblem will be selected, 
where subproblems are numbered in the same 
order in which they were input. 
IZINC = lower bound estimate for maximum overall objective value. 
Following the first card; the problem data for the individual 
subproblems is read in sequentially. The format of this data is the 
| 
same for each subproblem, and is similar to the format used to input 
problem data in the branch-and-bound code BB described in Section 2.1. | 
For each subproblem, the first card of input contains the value | 
for the variable INPROB in I4 format, where 
INPROB = gsubproblem identification number. The subproblems must 
| 
be numbered and input sequentially in the order | 
| 
’ Dy 2, Sy see, NSUBS. 


DSLC assumes that all cost coefficients in each of the subproblems 
‘| are integer-valued, and takes advantage of this by rounding all 
' upper bounds down to the nearest integer. For each subproblem, the 
* formats used for input of row and column names, objective function 


coefficients, constraint matrix coefficients, and right-hand side 


coefficients are identical to those used by LPM-l. Following input 


of these data, initial lower and upper bounds XLB(J), XUB(J) must 


be specified for the decision variables in 15F5.0 format. The 


os 


final input card for each subproblem contains values for the variables 


IBLB(INPROB), IBUB(INPROB) in 2110 format, where 


IBLB(INPROB) = lower bound on the allocation variable associated 
with subproblem number INPROB. 
IBUB(INPROB) = upper bound on the allocation variable associated with 


subproblem number INPROB. 


The input for a sample run of DSIC is given in Appendix II, 


following the listing of the program. 


4.2. Restrictions Relevant to the Use of DSIC 


As currently configured, the following restrictions apply 


to the input data and problem size and complexity for DSL: 


1. NSUBS must be .LE. 10. 

2. The first row in each subproblem must carrespond to the objective 
row; the second row in each subproblem must correspond to the 
linking constraint. 

3. No right-hand side value should be specified for the linking 

* constraint row in each subproblem. Prior to computing the para- | 

metric LP solution for a subproblem in Phase 1, DSLC automatically 

initializes the linking constraint right-hand side to the specified 

lower bound IBLB(INPROB) on the allocation variable associated 


with the subproblem. 
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The number of rows (including objective and linking constraint 
rows) in each subproblem mist be .LE. 22; the number of decision 
variables must be .LE. 50 in each subproblem. 

The number of nonzero objective and constraint coefficients 
must be .LE. 500 in each subproblem; the total number in all 
subproblems must be .LE. 1000. 


Tne modified concave and piecewise linear parametric objective 


function generated in SUBROUTINE PHASE1(J) must have .LE. 50 


linear segments in each subproblem. 

The number of distinct subproblem solutions generated must be 
-LE. 200 for each subproblem. 

The list of stored nodes in the branch-and-bound searen for an 
optimal allocation of the linking resource must never exceed 200 
nodes in length. 

The list of stored nodes in the branch-and-bound search for 
optimal subproblem solutions must never exceed 500 nodes in 


length for any subproblen. 


3.3. Description of Subprograms 
1. BIOCK DATA--From LPM-1; same as for BB. (See Section 


Tomlin (1975).) 

SUBROUTINE INPUT(IFPROB)--From LPM-1; reads in subproblem 
data. (See Tomlin (1975).) Modified to read in lower and 
upper bounds on the decision variables and on the allocation 
variable associated with the given subproblem. Also stores 


subproblem data. 


Parameters: 
IFPROB (Output, INTEGER*4) Subproblem identification 
number (= INPROB). 
SUBROUTINES FTRAN(IPAR), BTRAN, FORMC, PRICE, CHUZR, WRETA, 
SHIFTR(IOLD, INEW), INVERT, UNPACK(IV), SHFTE, UPBETA--From 


LPM-1; same as for BB. (See Section 2.4, and Tomlin (1975).) 


SUBROUTINE NORMAL--From LPM-1;,; directs execution of primal 
simplex metnod. (See Tomlin (1975).) Modified for bounded- 
variables. 
SUBROUTINE BANDB(INITBD)--From BB; directs execution of branch- 
and-bound search for an optimal integer solution to given sub- 
problem. (See Section 2.3.) 
Parameters: 
INITBD (Input, INTEGER*4) Initial lower bound estimate for 
maximum subproblem objective value. Value of INITBD is 
specified by SUBROUTINE GETLBD(J). 
SUBROUTINES DCHUZR, DCHUZC, TESTX, PENLTS, BRANCH, BKTRAK-- 
From BB (See Section 2.3). 


SUBROUTINE ALOCTE(IPAR, IRHS)--Solves Master Problem (concave- 


separable integer program; see Kocnman (1970), Chapter 4). 


When current node in allocation-variables search tree was 
obtained by forward branch, the Master Problem is reoptimized 
by starting from the previously optimal solution and reallocat- 


ing IRHS units of the linking resource. 
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Parameters: 
IPAR (Input, INTEGER*4) Indicates whether current node in 
allocation-variables search tree was obtained by forward 
branch (IPAR = 1), or by backtracking (IPAR = 0). 
IRHS (Input, INTEGER*4) Amount of slack in linking constraint 
in the optimal solution to last subproblem solved; used only 
when IPAR = l. 
SUBROUTINE DOMCHK (J, K)--Compares current allocation: (from 
SUBROUTINE ALOCTE(IPAR, IRHS)) with previously examined alloca- 
tions in each unfixed subproblem to determine if the optimal 
solution corresponding to the current allocation is already 
known for any subproblem. 
Parameters: 
J (Output, INTEGER*4) Indexes first subproblem found for 
which optimal solution corresponding to current allocation 
is already known. 
K (Output, INTEGER*4) Indexes the previously examined alloca- 
tion in subproblem J which leads to same optimal solution 
as would current allocation. 
SUBROUTINE LDDATA(J)--Loads data for subproblem J into appro- 
priate storage locations for solution by SUBROUTINES NORMAL 
and BANDB(INITBD). 
Parameters: 
J (Input, INTEGER*4) Indexes the subproblem selected to 


be solved next. 


25. SUBROUTINE GETLBD(J)--Compares current allocation in subproblem 
J with previously examined allocations to determine an initial 
lower bound on the maximal objective value in subproblem J 
under the current allocation. 

Parameters: 
J (Input, INTEGER*4) Indexes the subproblem selected to 
be solved next. 

26. SUBROUTINE SAVER(J)--Stores allocation and solution informa- 


tion for subproblem J. 


Parameters: 


J (Input, INTEGER*4) Indexes last subproblem solved. 


K (Input, INTEGER*4) Indexes a previously examined alloca- 
tion in subproblem J. The current allocation in subproblem 


J is fixed at the level of the “ allocation by the branch- 


dg 


ing procedure. 


27. SUBROUTINE DMBRAN(J, K)--Branches on allocation variables 
in subproblem J. (See Kochman (1976), Chapter 3 for a 

: discussion of the branching procedure.) 

a Parameters: 

« J (Input, INTEGER*4) Indexes subproblem in which branching 
a is done. 

: K (Input, INTEGER*4) Indexes a previously examined alloca- 
tion in subproblem J. The current allocation in subproblem 


J is fixed at the level of the K allocation by the 


branching procedure. 
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SUBROUTINE BBKTRK--Backtracks in allocation-variables search 
tree to locate next unfathomed node to be examined. Last- 
in-first-out (LIFO) selection rule used. 
SUBROUTINE OUTSOL(INC)--Outputs final solution information. 
Parameters: 
DIMENSION INC (10) 
INC (Input, INTEGER*4) Array containing optimal solution 
information. For J = 1, 2, ..., NSUBS, INC(J) =k if the 
solution in subproblem J corresponds to the x solution 


obtained in subproblem J. 


SUBROUTINE PHASE1(J)--Solves subproblem J as a linear program 
parametrically in the linking constraint right-hand side. 
Simultaneously modifies the resulting coneave and piecewise 
linear parametric objective function to render 211 breakpoints 
integral. (See Kochman (1976), Chapter 4.) 

Parameters: 


J (Input, INTEGER*4) Indexes next subproblem to be solved. 


Description of Output 


The following output is generated by DSLC. After each subproblem 


J has been solved parametrically in SUBROUTINE PHASE1(J), the 


(all-integer) breakpoints IBP(K, J) (K = 1, 2, ..., NLAMDA(J) + 1) 


of the resulting parametric objective function are printed 


out, where 
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IBIB{(J), when K =1 
IBP(K, J) = 


IBUB(J), when K = NIAMDA(J) + 1, 


and where 


NLAMDA (J) = mumber of linear segments in the concave and piecewise 


linear parametric objective function for subproblem J. 


The second line of output for each subproblem displays RLAMADA(K, J) 


(K = 1, 2, ..., NIAMDA(J)), where 


RLAMDA(K, *) = slope of the -~ linear segment of parametric objective 


functions for subproblem J. 
The third line of output for each subproblem gives ZNAUT(J), where 


ZNAUT (J) = value of parametric objective function for subproblem 


J at IBLB(J). 


D 


Next, the output generated in Phase 2 of the decomposition algorithm 


is printed. Whenever a subproblem is (re)solved explicitly 


oY 
SUBROUTINES NORMAL and BANDB(INITBD), one line of output is generated; 


this line takes the form, 


SUB J, SOLK: X, Xps e++s X 5 
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where | 


J = subproblem identification number 

K = identification number associated with the given solutions 
for subproblem J. 

X) = optimal colum values, £ = 1, 2, ce.» Dy 


n = number of columns in subproblem J. 


As in the branch-and-bound code BB, the optimal solution to the sub- 
problem is printed out in the order (1) objective function value, 
(2) slack variables, and (3) decision variables. It should be noted 
that when the lower bound on the maximal objective value generated 
in SUBROUTINE GETLBD(J) equals the optimal objective value for the 
given subproblem, no incumbent solutions are found in SUBROUTINE 
BANDB(INITBD). In this case, only the optimal objective function 
value and linking constraint slack are printed out; zeroes are printed 
for the remaining column values. The remaining optimal column 
values may be recovered through the solution identification number 
K, by referring to the output for subproblem J when the ies solution 
was first generated. 
In addition to the subproblem solution information, whenever 
a new incumbent solution to the overall block angular problem (P) is 
discovered, the computation time required to reach the solution and 
the corresponding incumbent objective value IZINC in (P) are printed. 
When all computations have been completed, the overall optimal 
solution to (P) is printed. The solution in each subproblem is 
identified by the solution identification number. The optimal column 


values may be recovered by referring to the output of subproblem 


él 


ae eter onsen avaeeae ate 


solution information generated in Phase @ of the elgorithm. Finally, 
the maximal objective value to (P) is printed, followed by the output 


of various parameters related to the performance of DSIC on the 


a4 


problem. The output from a sample run of DSIC is given in Appendix 


II, following the listing of the program. 


Bs : 4.5. Further Comments 
As currently written the Fortran code DSIC contains approxi- 


mately 1,950 source statements. All significant array storage is 


done in COMMON. In all, approximately 65K bytes of core storage are 
required by the five COMMON blocks. When compiled on Stanford's 

IBM 370/168 under IBM's FORTRAN-H-Fxtended compiler, with level two i 
optimization, approximately 126K bytes of core are required for all 
instructions and data. 

The computer program DSLC was written by the present author 
in the course of completing his doctoral dissertation in the Depart- 
ment of Operations Research, Stanford University. Computational 
results (solution times) obtained on several test problems are 
presented in Chapter 6 of Kochman (1976). DSLC was last revised in 


September 1976. 


4. The Decomposition Code DMLC 

' 4.1. Main Program and Input Requirements 

The main program for the code DMIC coordinates the application 
5 of the two phases of the decomposition algorithm for block angular 
integer programs with multiple linking constraints. As in DSIC, the 


problem data is input and the computations required to construct the 


ad 
” 
% 
5 
~ 
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fs 
te 
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Relaxed Master Problem are executed in Phase 1. In Phase 2, the 


branch-and-bound search for an optimal allocation of the linking 


resources is carried out. The major differences between the codes 


2 DSLC and DMIC are in the methods used to construct and solve the 
Master Problem; see Chapter 4 and Chapter 5, Section 1 in Kochman iF 
i 
(1976) for a discussion of these methods. l 
: The first card of input for DMIC contains values for the 
variables NSUBS, NLINK, IPARM, and IZINC in 4110 format. These 
variables have the following significance: 
NSUBS = number of subproblems 
NLINK = number of Linking constraints i 
; 
J IPARM = parameter determining which subproblem selection iq 
rule is used in Phase 2. Identical to IPARM in } 
the code DSLC; see Section 3.1. 
IZINC = lower bound estimate for maximum overall objective 
value in (P). 
The second card of input for DMIC contains values for the array IB(I) 
in 5110 format, where 
: IB(T) = right-hand side for oe linking constraint, 
I= 1, 2, «.+, NLINK. 
? 
i Following these two cards, the problem data for the individual 
: subproblems is read in sequentially. For each subproblem, the first 
F eard of input contains the value for the variable INPROB in I4 format, 


where 


Ce ae Ee Ce Tc ee Tre eee ea © a nan 


os 


- 


INPROB = subproblem identification number. he subproblems 
Vx; Pe 


must be numbered and input sequentially in the 


order 1, 2) By sisi NSUBS: 


The format for the individual subproblem data is identical to that 

used in DSLC (see Section 3.1), with the exception of the input of 

the bounds on the allocation variables. The final two cards of 

input for each subproblem contains values for the arrays IBLB(I, INPROB) 


and IBUB(I, INPROB), respectively, in 5110 format, where 


TBLB(L, INPROB) = lower bound on the = allocation variable associated 


with subproblem number INPROB, I = 1, 2, -+-+, NLINK. 


IBUB(I, INPROB) = upper bound on the "a allocation variable associ- 


ated with subproblem number INPROB, I = 1, 2, ..., NLINK. 


The input for a sample run of DMIC is displayed in Appendix 


III, following the listing of the program. 


4.2. Restrictions Relevant to the Use of DMLC 


As currently configured, the following restrictions apply to 
y be =) 


the input data and problem size and complexity for DMIC: 


1. NSUBS must be .LE. 10; NLINK must be .LE. 5. 
2. The first row in each subproblem must correspond to the objective 


row; rows 2, 3, «++, NLINK + 1 must correspond to the linking 


constraint rows. 


optimal 


fayoliweive o yhiecti ana 
(exclusive of objective ana 


aint 


total number in all 


optimal dual multipliers 
in each subproblem must be .LE. 20. 
The number of distinct allocations explicitly examined in each 
subproblem must be 
of stored nodes in the branch-and-bound search 
allocation the linking resources never exceed 


in length. 


must never exceed 


Cy rena 
WODrog rams 


RAN 
aiNy 


ret neko IT . ~ year \ — 
CHUZR, WRETA, SHIFTR(IOLD, INEW), INVERT, 


SHFTE, UPBETA, NORMAL, BANDB(INITBD), 


JHUZC, TESTX, PENLTS, BRANCH, BKTRAK--Same as 


Pia AE Aaa dp att 0 


ok SEE 


*s 


2e. 


25-27. 


Section 3.3. SUBROUTINE INPUT(IFPROB) modified for multiple 
linking constraints. 
SUBROUTINE ALOCTE(IPAR)--Obtains linear programming solution 
to Relaxed Master Problem; see Kochman (1976), Section 5.1. 
Calls SUBROUTINE LDMSTR (if necessary) to set up problem 
data for solution by SUBROUTINE NORMAL. Also calls SUBROUTINE 
TESTZ to round-off optimal LP solution. 
Parameters: 
IPAR (Input, INTEGER*4) Parameter indicating whether 
(IPAR = 9) or not (IPAR = 1) any subproblem has been explicitly 
solved since last Master Problem solution. When IPAR = 0, 
the data for the Master Problem must be reloaded from 
scratch (SUBROUTINE LDMSTR) into the storage locations 
required for SUBROUTINE NORMAL. When [PAR = 1, only the 
revised allocation-~variables.bounds need be reloaded. 
SUBROUTINE LDMSTR--Loads data for Relaxed Master Problem 
into appropriate storage locations for solution by SUBROUTINE 
NORMAL. 
SUBROUTINE TESTZ-~Tests LP-optimal solution to Relaxed Master 
Problem for fathoming. If not fathomed, the solution is 
rounded to obtain an integer-feasible solution to the Relaxed 
Master Problem. See Kochman (1976), Section 5.1 for a discus- 
sion of the rounding procedure. | 
SUBROUTINES DOMCHK(J, K), LDDATA(J), GETLBD(J),--Same as | 
for DSIC (see Section 3.4). Modified for multiple linking 


constraints. 


ere ; : p tte 
8. SUBROUTIN )—~-Test turrent LP-optimal solution to 


subproblem J to determine if the set of opt l dual muitipliers 
L 1 - N “ re i daw r aj t Gl 7 a ro 
2 previou Lsj i i 1ltiplie: f distinct, 
rarame te 


subproblem solved under 


BBKTRK, OUTSOI (INC ) --Same 


Ld 


eonstraints. 


- Description of Output 


mJ 2 - . +n 
is identical to that for 


DSIC, with the obvious exception that no parametr linear programm- 
ng solution information for the subproblems is generated in DMIC. 


The output from a sample run of DMIC is included in Appendix III, 


following the listing of the program. 


? 

: As currently written, the DMiC contains approxi- 
! mately 2,000 souree statements. All significant array storage is 

s\ 


done in COMMON. In all, approximately 50K bytes of core storage 


" are required by the f COMMON blocks. 
a MTC ‘ } 
r The computer program DMIC written by the present author 


in the course of completing his doctoral dissertation in the Department 


se 


tions Research, Stanford University. DMLC was last rev 


” 
q 
f of Opera’ 
‘ in September 1976. 
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LISTING AND SAMPLE INPUT/OUTPUT FOR COMPUTER PROGRAM BB 


i 
| 
| 


cee n meg Cretan arenes 


LARD ae TI a ee phd trite hay MCR Meech 3320" 


Le c 
ti c BRANCH AND=bLUNC KRUUJTINE, 8B 
3 de C PURSH INTEGER LENEAR PRUGRAMMING IN GCNERAL INTEGER VARIABLES 
“Ge (> GARY 4. KUCHMAN (UPFRATIGNS RcSEARCH), SEPT. 1L9Te, MUO lL 
Se 3 
tre IMPLICIT Re AL*e (AyCeEtH ey Og Py Romy 2) REAL ¥S (BaD ors) 9 
4 1 INTEGER (Ln, wy) 
9. COMMOR/TirtcKos TrIRST,TOPT,LEVAL, LY GT 
%. Cc 
19. MATN PROGRAM 
ll. Cc CCCRUINATES APPLICATION UF INPUT, LP, BRANCH=AND=BOUND, 
12. c ANE GLTPul SUBRCUTINES 
Pas c 
Ite € START TIMEK 
E56 10 CALL PCLUCK(ITCT) 
loe Cc INFUT PRUSLEM DATA 
17. CALL INPOTCITFPRUB,INITUOI 
13. LF (IFPRUB .tWe UJ GO TL LUUO 
19. ITSINV = 99999 : 
20 C SGtveE LP KELAXATION GF URIGINAL PROBLEM 
21s — CALL ACRMALCITSIiNV) 
226 = APPLY BRANCH=ANU=B80CUNU SEARCH RUUTINE 
236 CALL PANDBCINITSD, ITSINV) 
24% Cc STCP TIMt& 
256 CALL PCLUCK(JTIME, ITOT) 
2656 TTOT = JTIME/1U0. 
PALE wRITE (0,1) TTCT 
23. 1 FORMAT (* TUTAL SOLUTION TIME =",F7.29* SECONDS®) 
2% € OUTPUT GPTIMAL SCLUTIGN 
30. CALL whPAPUP 
‘be GO To ly 
32. 1occe stTaP 
335 FND 
346 4LOCK LATA 
356 Cc 
5 (se C INE TIALIZES GLUBAL PRUGRAM CUNSTANTS 
STs € SGBRULT ANG ADAP Te FROM LINEAR PRUGRAMMING CODE LPM@=b, WRITTEN 
ae € BY JeAe TUMLIN (OPEKATIUNS RESEARCH, STANFORD UNIVERSITY) 
39. (s 
49. IMPLICIT KeAc®e (AyCycmHyUsPe Remy 2)» REAL (Bee XeV) 
4. 1 INTEGER*4 (L=Ny wd 
4?. COMMON/J2ALUCK/ cTUL Lee ZTILPVy ZTICUsTs ZTULRI ep LTOLSM yeh, QMA, IBA ,QFI , 
436 1 CEG, GbL ey WA ys QPL yQMI ey Ul pT pe QF 9 CGNs QU ys NE MAX pNEMAXe QU eQLy 
44. ys Qk pW HpQh pel ay dR ey QM yQGy NT MAK 
456 REAL 2TULcE/ Le E=5/ pLTULP VS Le EM4/ ep LICIST/L ERB pLTOLR S/S Lem ol 
i 46.6 1 ZTILGM/ie tL 
E 47. [INTEGER *4 NKMAX/G0/¢NTMAASLOUUS @NEMAK/ 4) 00/ 
45.6 ENTE SER QRKU/S TR wW Sp QMASIMATRY/ gp 2A/S* BAST /, QE I/'FIRS'/, 
‘ 49. LQEG/" ECF "/eQ8L/* */yWh/*Aa 7, SPL/* © /eQMI/' = "f/f, 
4* Sie 2QZ/* © 74 QE/*t ‘7 QUES FE "7 ,QN/IN "Pease "Ss 
% Sis 3QB/'R */ ste / WES E */,QH/*H "Pe Qstb "Le 
pe 526 490/'9 *JywRS th "/7,Q4/ 5M */eQG/'G "ys 
te 536 END 
rs 54%. SUBPOLTINE INPUTAL FPROB,INITSO) 
cd 55.6 c 
t 54. c INPUTS PRUaLOM LATA 
e 57. € SUBRLUTINE ADAP TEV FRUM LIWEAR PRUGKAMMING CODE LPM=h» WRITTEN 
; 53.6 G BY JeAw TOMLIN (OPERATI UNS RESEARCH, STANFORD UNIVERSITY) 
59. Cee eR eRREDE SCRIPTION GF PARAMETERS ®#® Oe ee 2% 
E)e C TFPRKOM = INPRUOB = NUNZERU PROBLEM LUCNTIFICATIUN NUMS8eK (OUTPUT) 


3 
f 30 
é 
4 


+ Pea 0 MOR sete pind: ee AS MORI MBSE ALE on A AO eG to Ry BPD RG 


Pe 


C 

» Cc 

3 CaaS 
c 


ran 


OF 8010 
& 


1. Lcl 


eee anata 


INT fou = INITIAL LGWLK BUUND ESTIMATcC FOR MAXIMA, OBJECTIVE “ 
ValLJte (OUTPUT) 
WK ME RR RR OR OK ROR KR EEK RE OR KK + 


IMPLICIT REALS (Ag CrpEmrt ye OepPe Reine Z) » REAL¥*S (BeDeX1V) ye 
1 INTEGER #4 (f=, 0) 

INTEGFE¥2 Shs K INGAAS siAglL lb pIAslE 

DOURLE PRECISION £ (4000) ,ATEMPL ATEMP 2 

REAL A€2U00) 


COMMOR/BLUCKS LTO ZEy L2TOLPV, ZTCCST, 2TULRJ,ZTOL SM pQRO, GMA, OBA PUFI » 
1 we Os OSL eA Pp QPL yp QML QZ phy Wry UNy QU, NRMAX yp NEMAXg dtipile 
2 Wi edly Wh s Qe WRe Qh pQGs NT MAX 


COMMON DoUMsUPRKUD, CYZVEs, UP s3160),X(60),Y(00) ,YTEMP(O0) pA Ee, 


L UMINE, LONAMOCL 22,2) 2 NAME( 20) NTEMP (20d eMS TAT, LOB TROWP, 

2 IVANelVUUT, IT TENT, INVER Ge ITRERQ ITF FE Ly UCOL Py Nr UW yNCOL, NELEM, 
3 NETA NLELEM eNLETA sNUCLEM gNUE TAs JH (100) pKINBASCL22) pt AC L22) » 
4 LE 1002), TA 02000)» 1214000) -XLB8(122) eXU84L 22) 


00 10 [=1,6u0 
4(%) = ihe 
00 20 J=i,l22 


KINPAS(J) = 0 
NROwW = JV 
ITENT = VU 
[eSi=c 
FCS2=C 


READ (5, 700U,ENV=9999) INPROd, TGA, INVERQ,ITRERG,INITBOD 
FORMAT (414,110) 

IFPRCB = INPRUB 

TF (PFPROB -EWe OF RETIRN 

IF CECBY EG. CHIOBY = 2 

IF CTNVERQ sEWe OP INVERQ = 9999G 

TF CL TRERW «FQ. OI ITREXY = 99999 

WRITE (6.8010) IF PROS 

FORMATISGHLPRUBLEM yf) 


KEADCEyiUL) Kb pt dn Koy Ko, (NAMECT) pLoie 4) ys ATEMPL a NAMEUS ) pNAME( 6), 
LATEMP 2 

FORMA TL4AL p2A4 gc X_ chSy eK Flo oe 3K 72 bGy2Ky 12 24) ; 
[FCKL etwe WE) GL TO &99 } 
TFCK) ectke @8L9 GU TU 59 

TF(KL sEwe ON) GO TO 100 

TFCKL erwe Gk .ANDe K2 eEWe VO) LAL 

TF(KL c&We WK eANUe K2 «EWe QU) GO TO 150 

TF(K1 wtwe QC) Lee 

TFCKL efwe GC? GO TO L50 

TFUKL eFe OB cANDs K2 «Ede QA) 423 

TFCKL ete wh eANUDe K2 eEWe WAI GG TO 150 

TFCKL cE&Q. WE eANDs. Ke cEXs WH) L=4 

TFCKI] sEWs Qk sANDs K2 «EQ. QH) GO TO 150 

GO TOC216 4320 9410, 500) oh 

NTEMP(1) = NAMEC3) 

NTEMP(2) = NAME(4) 

CENTIUNGE 

x0 Th) 5 


NROW=NROW oh 
NCOL= NRua 
TCNAM(NKGUaei) = WAME(L) 


oa 


12?. ICNAM(NKUW ee) = WAMEL2) 

i123. C 

l2te € TEST ROW TYPE 

125. C 

l2o. TFCK2 etwewk eUK. KSEQNL) GU TO 220 
127. FF CK2 -EWeWE OR. NGeEUeQE) GO TO 230 
L246 TFCK2 FS eWE eke KZeCUe NG) oU TO 240 
129. LFQK2 eFUewN OK. ADeeWewN) 60 TO 25y 
L306 GO TO 24u 

131. 22€C XLRIN2°Ow) = Of 

132. XUB(NROwd = LES 

143. GO TQ 25u 

1394. 2320 XLB(NRCUw) = Ce 

135. XJBINEUR) = Us 

136. 6@ TE 25v 

Yair. 24C XLB(NROw) = 02 

L336 XWA(NREw) = 1.E¢ 

139% A(NROW) = ~Le 

L4)e GU TG 2bu 

14l. PSO ACNRGW) = Le 

142. 26C TACNPChw) = NROW 

1427. LACNR Cw) = WkKOK 

144.6 JHONP Ce? = NROW 

145. KINAAS(iincw) = NRua 

146. NEL EM=NR Ow 

147. Go Wi 5: 

143. C 

L473. Cc MATPIX ELEMENTS 

159. < 

he 9 320 J = 3 

152. kK = 4 

153. TF (OAPSCATeMPi) «LE. ZTULZE) Gk FO 32% 
15%. GO Tf 32% 

155. 22) J=5 

155.6 K=6 

tS7s ATEMP L=ATc&MP2 

1536 GG Ta 330 

1596 324 CONTING: 

160. LF (NAMEOL) «fe 1CSL AND’ NAME(2) .£0. I[C€82) GU TO 350 
161. C 

1626. Cc TEST FUR SPLIT VECTUR 

163. G 

l6%. 90 326 [ = beNCOL 

165. IF (NAMEC LI eN&e LCNAM(i,1)) GO TU 3525 
lo6. TF (NAMEC 2) eNte ITCNAM(T,2)) GG TU 325 
167. wRTTE (6y825U) MAME CLI oe NAME) 

168.6. 8250 FORMAT (L4HUOSPLIT VELTUK 42A4@) 

L676 325 CONTINUE 

17). NCOL = NCOL + 1 

L7L. {CSl = NAMELA) 

Lites ICS? = NAME\(2) 

bike TCNAM(ACOL 1) = ICS] 

1/74. ICNAM(NCGig2) = IC S2 

175. LAC(NLEL) = NELEM + 1 

176. € 

177. C TEST FUR KU MATCH 

178. ¢ 

179. 330 DO 34¢€ Lf = de NRCW 

180. TFCNAME( GS) eNE se ECNAM( 191) sUuRe NAME(K) elie TCNAMOI, 20260 Tu 340 
i8L. NELEM = NELEM + 1 

1826 TACKELEM) = I 
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Lid. A(NFLE*) = ATEMPL 


18%. LAQNCCL#L,=NEL EN th 
LAS. 335 TFGK wGT, 5) Go TO 5 
1445.6 PFIDARS(ATEMP2Z) eh ce LTOLZE)D LO TO 4% 
= 187. f= 4 
SAY. K = 6 
18%. ATEMPIL ATeEMP? 
1G). GU TH 330 
19t. 34C CONTINUE 
192. ARITE(5,930U) MAMe CS)» NAME CK) »NAMEC 1), NAME(2) 
193. R3CO FORMAT(1SHUNU MATCH FUR ROw »2A4,1L0HAT CULUMN 9244) 
194. sToP 
P 19>. c 
196.6 € BAS!s CARUS 
or. (a 
| 1S. 41C 0G 42C I = IyNlOL 
19°. TFCNAME(L) eNt&~ ICNAM( 1,1) eGRe NAMECZ) eNE. ICNAM(I22)) GO TO €20 
200. tB8VEC = [ 
20L. GO T0 4é5 
202 6 420 CONTINUE 
203. WRUTE (6,3405) NAM (LL) pAME(2) 
8400 FORMAT ei hONU MATCH FUR VECTOR 49244) 
66 TO 5 
425 99 43C 1 = LeNrOW 
Te (NAME( 3) NE SLC AMET, L) eUR NAME (4) NEE CNAME, 2)) GO TU 430 
TBROW=! 
209. GO TO 440 
210. 430 CONTINUE 
211. WRITE (G,38200) NAME (3),NAME(4) 
oie < 60 10 5 
else 44C JH(IRRCw) = LBVEC 
2146 KINBAS(ISRUW) = O 
2156 KINBASC(IBVEC) = IBROW 
E15. GO 70 § 
21s C 
21536 Cc SHS 
219 6 c 
Zee 2CO J = 3 
é2le K = % 
222 TF (DAESCATEMPL) «LE. Z2ZTULZE) 6G; FCG S2k 
Pye 6G TO SzZ4 
224%. $Z1 J=5 
2256 K=6 
poe ATEMPL=ATEMPE 
Zits GO Th 530 
E 22%. 5624 CONTINUE 
22%. FF (NAMECL) »-cQ-. ICS1 «.ANUs. NAME(2) «EQ. ICS2) GC TO S3u 
§ 2206 c 
& Zab G TEST tuk oPLET VECTUR 
+e i 
; 2736 DO 525 ¥ = lyNCUL 
¥ 23%. PF (NAME(L) NE ITCNAM(i,1)) GO TO 525 
By 2356 [F (NAME(2) .NEs IT CNAMLI,2)) GG TO 525 
‘ 2Sa%0 WRITE (5,5250) NAME (LI yNAME( 2) 
. 23T. 525 CONTI NGc i 
. PAIK, [CSL = MAME(1) 
% 239. {CS2 = NAME(2) 
: 24%). C 
: 241. ¢ TEST FUR KUW MATCH 
Pare Cc 
2436 52¢ vO 54C I = LyNROwW 
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TFONAMEC SJ) NC. TCNAMG LT) 1) eRe NAMC(K) «NE TCNAM(S,2))GU TO 340 
sdf) = ATEMPL 
525° TREK «Ge 5) “GG TD 5 
LFCOABS(ATEMP2) wet. ZIGLZE} GO TG 5 
J = 9 
K = 6 
ATEMP1 = ATEMP 
GO TO 53v 
540 CONTINUE 
WRITE (64,5300) NAME (J) eNAME(K) 
stop 


ENU Ue INPUT 


aAaD 


6CC NSCCL = NCUL = NkUW 
K = NROW + 1 
(3 INPUT COWER AND UPPER BOUNUS ON DECISION VARI ABLES 
READ (5,69C) (XCKBL dds JK, NCUL) 
READ (5,09C) (rAUBL I), J=K,NCUL) 
65C FORMAT (15F520) 
NELEM = NELEM «= NRCW 
RELEM = NELEM 


RDOENS RELEM/ iNRUW*NSCOL) 
RETURN 
99S9 IFPROB = 0 
RETURK 
END 
SUBROLTINE FTRAN(I PAR) 
€ 
C PERFURMS FURWAKD TRANSFORMATION GN COLUMN STOKED IN VeCTUK Y 
C SURBRUUTINE AUAPTED FROM LINEAR PRUGRAMMING CODE LPM=i, WRITTEN 
¢ BY JeAe TOMLIN (OPEKATIUONS RESEARCH, STANFORD UNIVERSITY) 
Cex eK RENE SCRIPTION GF PAKAMETERS *%% 4% HX & 
C IPAR = PARAMETER INDICATING WHICH ETA=VECTORS MATRIX COLUMN 
Cc 1S TG Be UPDATED BY (INPUT) 
{C6 He me ae ae ee eee a a a a a A a ee Bok 
Cc 
IMPLICIT REAL¥4 (AgCaEHyUgPypkK—we 2)» REAL*S (Bee Xo) eo 
1 INTEGER*4 (I=NyQ) 
INTEGFRE®2 SHyKINBA SyLA,LE IAG IE 
DOURLE PRECISION £ (4000) 
REAL Al2000) 
C 
CCOMMOR/BLOCK/ LTOLLZE,ZTOLPV, ZTCOS1Ty ZTOLRS» ZTOLSM ye ORI» QMA YUBA QF 1 » 
1 GEO se CBL QA pQPL QM] 9 UZ pwil QF se CN e@ QU, NRMAX pNEMAXs QBy Ce 
2 QE pQ Hy WL yQO eR, uM pQGe NT MAX 
Cc 
CCMMON DSUM,UPKCD, CY,0E,0P,8(60}),X(60),¥ (60) sYTEMP (60) rAd Er 
1 SUMINE » ICNAM( 12292) ¢NAME( 20) pNTEMP( 20) 9MS TAT, [OBUe IROWPy 
2 IVINeIVGUTs TTONT INVERGe ITRERQ LEE E Ls JCOL Py Ne UWy NCCL» NELE My 
3 Ne TA,gNLEL EM yNLETA gy NJELEM yNUE TA JH( 60) pKINBAS(1 22) pL AL a22) » 
4 Le (1L0uU2 14 1A (2000) gp LEC 4000) pXLB(122) eKUBIL 22) 
C 
GO TO (1009110), IPAR 
1Cc NFE = 1 
NLE = N&eTA 
GO TO 200 
110 NFE = Nic TA + 1 
NLE = NcTA 


2cC IF (NFE «GT. NLE) GO TU SuVd 
DO 1060 IK = NFe»NLt 
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SCO 
1occ 
$ccc 


1 


w 


> 


Lu = LECCE) 

KK = LELEKAIE = 1 

EPEV = PECEC) 

OY = Yilrlyv) 

O¥ = EYSECLL) 

YCLPrV) = OY 

IF (KK «LE. L£2 6D FO 1000 


Ne TP 

DD 500 J = ile KK | 

IR = ft€tJ) 1 

YEUR? = YeLR) - EC 0) * DY 

CONTINUE 

CONTINUE 

CONTIANLE 

RETURN 

FND 

SUBROLTING BTRAN 
PERFURMS BALKWARD TRANSFORMATION UN COLUMN STORES IN VECTOR Y 
SUBRUUTING ADAPTED FROM CINEARK PROGRAMMING CUGE LPM=Ly wR ITTCN | 
BY JeAw TOMLIN (OPERATIONS KESEARCH, STANFORD UNIVERSITY) | 

] 


[IMPLICIT REAL #4 (A gCytE=H yp Op PyR—wy 2) 9 REAL*SB (AeDaXyV) 5 
INTEGER #4 (THN Q) 

INTEGER 2 GHeKINGAS sLAGLE,LA,IE 

OOUBLE PKECISIUN E (4000) : 

REAL &(2000) 


COMMON/GLOCK/ LZTOLULEsZTOL PV, ZTCOUST, ZTOLRI y ZT OLSM yp QKOy OMA Q5A nar le 
QED, WBL,y QA, ePL» QM, QZ Wl y QF y ON y QU NRMAX gNEMAXKs O55 UL ye 
SL awh yh yWOgGRyQMeQGyNT MAX 


COMMON USUMPUPRUDs DYe DE, OP 93 (60)5X(60),Y(60) »YTEMP(LO) AEs 
SUMING, ICNAMOL2d¢ Zi yNAMEC 20) eNTEMP( 20) MS TAT, 1 OBS, LRUMWP 
IVIN,LVUUT,ITCNT, INVFRQs ITRERQe LFF E Le SCOL PyNY SWeNCUL  NELEMy 
NETA,NLEL EM @NLETA »yNJELEM eNUE TA JH (00) sKINBAS(L 22) LAG Le)» 
Le({lOUZ), TAL2COD} ,TE(4000) pXLBC1L22) yXUP (122) 


IF (NETA eLE. 0) GO TO 90U0 

DO 1000 { = LyNETA 

TK = NETA = [ + 1 

Ge LEC IX) 

KK = USCEKELS = 

Ply = Te (tb) 

OP = EtLE) : 
OY = YCIPITV) 

DSUM = Ue 

[F (KK .LE. LL) GO TO 600 


Eh evi. ok 


30 500 J = LigkKk 

IR = JE{J) 

DE = Ely) 

DPROO = Oc * YCTR) 
OSUM = OSUM + DPROD 
CONTINUE 


VOPRPIVI = OY = OSUM) / OF 
CONTINUE 

RETURN 

END 

SUBROLTINeE FUR ME 


4 ’ 
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a 


Be al neninen ten 


oa 


on) 


AAVAAAQO 


1c 


3¢ 


FORMs JUBJ. Ful TIGN VECTUR $ USED IN SJBROUTINE PFEICE 
Subeudt dive AUAPTED FROM CINEAR PROGRAMMING COOE LPM=1ly WeITIEN 
bY S.A. TUMLIN (OPERATIONS RESEARCH, STANFORD UNIVERSITY) 
IMPLICIT REAL#4 (AgCyt-tH se Oe PyRowe 2) 9 REALFB (Bede Xs V) yg 
1 INTEGER¥4 (I1-N,0) 
INTEGER*2 Srp KINBAS»LA,LE, LAg TE 
IOUBLeE PReECISIGN c (4000) 


REAL A(ZU000) 

COMMON/6LULAS LZTOLZEgLZTOLPV,ZTICCST, 2TOL KI 5 ZTOLSM pQROy QMA,QKAZQFl > 
1 wtOe BL ey tAr PL yg dM 1, QZ owl p QF 9 ON» QUe NRMAX pNeMAXe WE QCe 
2 WE pQHe Gl e QOeQRs QM ye QGyNTMAX 


COMMON GoUMyUPRUD, C¥eVE, DP yB(60),X( 60) ,V( 50) sYTEMP(CO) AcE, 

1 SUMING a TENAM( 12252) pNAME (20) gNTEMP( 20) 9MS TAT, 108, IRUWP, 

< [VIN »L VOUT, ITONT, INVER GG, ITRERO gL FFE Zy JCOL Pe NP OWe NCULy NELC My 
3 Ne TAgNLELEM pNLcTAgNJELEM sNUETA sJH(60) ¢KINBAS(L22) LAC L222) 9 
4 Le ClLueedds TA2000) sp TE C4000) sXLo(L22) pXUB(122) 


MSTAT = Ql 
FFEEL = 0 
SUMINF = O. 
YULOQa8J) = O. 

BO 30 f=l,NRUW 
TF CE 2€Q. 1080) 
IcOl = JH) 
TE (UXOTY she. 
IF (X(T) .GE. 
YOL) = O02 
GO TG 30 
¥CT} = be 
SUMINF = 
GO TO 30 
YOR! = —he 
SUMINF = SUMINE 
CONTIAUE 

IF (SUMINF .6T. 
Y(IQs8J) = le 
FFFEZ = I} 

MSTAT = QE 
RETURN 

END 

SLBROLTINE PRICE 


6C TO 30 


(xXLB(ICOL) - ZTULZE)) GO TO lo 
(XUo(IicolL) + ZTOLZE)) GO To 20 


SUMINF + XLB(ICOL) - X(T) 


+ X(1) = xUB(ICCL) 


ZTOLSM) KETURN 


PRICES UUT NONBASIC COLUMNS$ CHOCSES PIVOT COLUMN 
CURFENT PRIMAL SIMPLEX ITERATION 

SURBRUUTING ADAP TED FROM LINEAR PKUGRAMMING CODE 1 PM=1L, wRITTEN 
BY JeAe TUMLIN (OPERATIONS RESEARCH, STANFORD UN. VERSITY) 


JCOLP FOR 


IMPLICIT REALS (AgUst—-HyOePyR—wye 2) » REAL¥*B (BeDyXeV) ¢ 
i TINTEGER¥4 (IT=NyQ) 

INTEGER*2 JHrKINGASsLA,LE, LA, IE 

INTEGES*2 LPAKT, INCUM8, [VBNOe IV1IO,1 OBND 

OCUBLE PRECISION £(400u) 

REAL Al20u00) 


COMMON/BLOCK/ ZTUL 2ZEyZTOLPV, ZTCCST, ZTOLRJy ZTOLSM yp QRUy QMAs QA QF Ie 
L QED, QBL yA pQPL PUMTy UZ QL QF ep GN eo QUy NRMAX pNEMAXs QB e dCy 
e QE pWHewh » QOeWRe WM» QGe NT MAX 

36 
~ eT Toot haga! 


7. ats aneaaiiainn 
, 
GA c 
42%. COMMON/a LUC Kes DFP ART(O00) sREVBNC, INCVALsICUL eLISTLyIVAL,IVIR, 
4226 l TPART(L22 Vg INCUME( 122) pI VENOL 500) pe IVID C500), 
4306 < LTUSGNODL 500) ,NP I VOT, fPTyPe ,RkCOST, fF EAS 
431 C 
3 432. COMMON USUMs,UPRUD, UY 20E,UP,5160) pX1 GU) og ¥{60) pVIEMHIGO) phe Ee 
433. } SIMINE, IC NAMCLE 292) NAME (20) sNTEMP( 20) MS TAT, TOBU2 [ROWP, 
1434.6 2 LVINe VOGUE, LTONTS INVER Uy TITRE RG GLE FE 2, SCOL Py Nw we NLUL, NELEM, 
4356 3 VETAgNLELEM yNEETAeNUELEM NUE TA, JH( 00) sKINBAS(L 22) pLA( 122) 5 
“BS. 4 LEC LUV? J, TAC 2000) gp TEL4U000) KALE 0122) pXUB(1 22) 
437 « ¢ 
433. CMIN = ieElu 
ie iar CMAX = +i2eE1U 
496 00 10C0O J=1lyNCOL 
441. iF (KINBAS(J) «GT. UI GO TO 1000 
S426 IF COCXUBE I) = XEBE GR) «kT. Z2TOL2E} GO TO 1000 
4436 OSUM = 0. 
444%. Re SAU 
445. KK = bLALUt ED) — 2 
1466 90 500 I = LbkyKK 
447 eS Re = TAGE 
443.6 DE = Atl} 
449. OPROC = Ve * YIIR) 
450 QSUM = USJM + DrPRUD 
451. 5cO CONTINUE 
452-6 IF (KINGAS (Ja «EQ. =—1) SO Td ed'0 
453. FF (DSUM .GE. CMIN) GU TU lOVY 
4G5%. CMIN = DoUM 
ASS. JEOL) = ¥ 
4566 GO TO rQu0 
457. oCC IF (OSUM wkce CMAA) GO TU 1000 
452, CMAX = USUM 
459.6 JOOS = J 
4606 LOCO CONTINUE 
461.6 C 
1626 [F (CIN wdce =ZTCCST) GO TO 1500 : 
43. IF (CMAX .Gcee ZTCOST) GO TO 200C 
LA « JCOLP = 0 
4656 FCOST = Ue 
4566 RETURN 
461. LSCc, [TF (OMAK sGE. ZICOST) oO TO 2500 
4630 bece JCOLP = Jue) 
46%. 28COST = CMIN 
41). RET'RN 
471. 20CC JECOLP = JeOL2 
iar RCOST = CMAX 
OT 36 RETURRK 
474.6 2500 IF (ABS(LMIN) -— CMAX) 20009200091 50C 
9 4T% 6 END 
* Tb. SUBROLTINWE CHUZRK 
Orta c 
H 413.6 C PERFLURMS MIN@=RATIO TEST FOR PIVUT COLUMN JCOLP OLTERMINED IN 
¥ 479.6 ( SJBRUUTING PRICE. SELECTS PIVCT RUW IRGWP FLOR CURRENT PRIMAL 
ni SR). c StTMPLEX IYcRATIUN. 
‘ 451. c SIBPUUTING ADAPTED FROM LINEAR PRKIGRAMMING CLUE LOM@le wkKITTEN 
te 482. c BY J.A. TUMLEN (UPERATIUNS RESEARCH, STANFORD UNIVERSITY) 
* 4P%, 2 
y 4P4e IMPLICIT REALE4 (AyCyE*Hs UpPyR—wy 2) » REAL¥B (dyDeXe¥) 
4856 1 INTCOER*4 (L=NpQ) 
: 4D. INTEGERS2 JHe KINGASgLAyLe,TAgtt 
487. INTEGER*2 PPART, INCUMBy,l vBND pI VIU,T CAND 
” 
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as 


AOD 


600 


NOUBLE PkrCIStuN c(4bJ0) 

REAL ACZUU0) 

COMMONSSLUCK/S ZTUL Zee 2TOLPV, ZTCLSTy ZTIL Ky LZTOLSM pQKLy QMAs OBA SQFT 
1 WLU yw BL QA QPL yl Gl eel ye QF y UN» QU, NKMAX pNEMAXs QS, 0Cy 
2 Weel me thsQUeuRe eM pdGy NT MAK 


COMMUN/BLUCK ES JEP ART(Q0) pKEVGND, INCVAL,sICOLyLISTLs!IVAL,IOIK, 


l LPART (L122), ITNCUMB(122),1V8ND( 500) ,IVID(50uU), 
2 [UdNDSU0) »NPLVUT, LP TYPE sRCOST,IFEAS 

COMMON UsUM+UPKUD, UY eDty UP ,5160)_,X(60),Y (60) yYTEMPLOU0 ) Ag Ey 

1 SUMLINE » LONAM( 12242) siNAME(20) eNTEMP (20) 9MS TAT, LOBJy ITRUWP, 
2 [VIN IVGST, LTCNT, INVER Ge LT RE RQ eS LFFE Zs JCOL Pp NROW,NCOL, NELEM, 
3 Noi AgNLEC EM pNLC TA, NUELEM »NUE TAgJHI60) gKINBAS(1 22) pi AC 122) » 
4 Le lOde dy LA2ZO00) , LEC +000) pXLB(L22) »XUB(Lec2) 


TF (KINSAS(JLOLP) «EQ. ~1) oG TO 1000 


INCCMING VARTABLE AT LOWER BUUNID 


= | 

vO 50C !=lyNRUW 

{ .«EWs 1084) GO TO 500 
Keot = Seen? 
Te OY(E) «Gis ZTULPVE GG TO LOO 
EF OVET) okT. “<2TOLPV) GO TO 200 
GO TO S5uU0 

POSITIVE COEFFICIENT 
IF (X12) .LT. (XLBCICOL) = ZTOLZE)) GO TO 500 
DE (XCD) = Xto(TCCLoy/v(1) 
EF USE «GE. OP? GO Td 500 
EPTYeE = VY 
GO TO 250 
NEGATIVE COEFFICIENT 

te (x(t) GT. (xUa(tCOL) + ZTOLZE)) GO TO 500 
DE = (XL) =~ XUBCICOLJ)/ VOL) 
fF (CE «GEs OF) GO TO) S00 
IPTYPE = = 1 
op = Cé 
TROWwP = | 
CONTINUE 
QE = CP + XistJCOLP) 
lF (DE «LT. ABI JCULP)) GO TO oGd 
DP = XUB(JCULP) = XLB(yCOLP) 
NPIVOT = v 


RETURN 
NPIVOT = 1 
RETURA 
TNCLMING VARIABLE AT UPPER BOUND 


DP = =—L.ELO | 
DO L50C L=1lyNROw j 
IF (17 e&Qe Tudv) GC To 1500 
1COL = JH(T) 
{© (Y¢I) «GT. ZTOLPV) GO TO 1100 
IF GVGED wehbe =2TOLPV) GG TO L200 
Gc T9 1500 
POSITIVE COEFFICIENT 
TF (X01) «GT. (XuB(ICOL) + ZTULZE)) GO TO 150) 


38 


as 


ANTLERS PCL aaa RC Ai or tt wt ic 


2446 DE = (xt!) XUB CI COLIISYCT) 
550. EP COE «kee BP? Gu TU) 1500 
>) IPTYPE “J 
52 6 GO TO 1t25u 
5536 C NEGATIVE COEFFICIENT 
55%. L2CG Te WeCh) skh. (ALA CLEOLY — ZTOEZE)) GO TG ES00 
Lee DE = €xO2) = XLOCICOLIIU/YOE) 
S506 IF €O8 «LE« OP) GO TO 1500 
SST x IPTYPE Uv 
Bp L250) (DP) = Et 
596 TROWP = | 
S60. 1500 CONTI AU: 
S615 OF = CP + KUnlsCOLP} 
626 fF (OE «GT. XLBCICCEP)) GO TO 1600 
563-6 OP = XLB(JCULP) - KUB(JCULP) 
564.6 NPIVOT = 0 
C6 ore RETURN 
560 « 160C NPIVOT = 4 
S61 RETURKA 
S636 END 
5694 SUBROLTING weeTA 
STOs € 
(he c FORMS WEw ETA=VECTORS FOR 8R00UCT FORM OF BSASTS INVERSE 
S726 £ SUPRUUTINE AUAP TED FROM LINEAR PROGRAMMING CODE LPM=1, wRITTEN 
TR, G BY JeAsw TUMLIN (OPERATIUNS RESEARCH, STANFORD UNIVERSITY) 
14.6 ¢ 
aS 6 IMPLICIT REAL*4 (AgCytmHyOePyR—mwe 2), REAL*®S (3,0 rrr VY) 
576.6 1 INTEGER*®4 (I-NeQ) 
TT. INTEGER*®2 JHeKEINBAS LAyLE, Lag LE 
5736 OGUBLE PrReCIoION E (4000) 
619. REAL Aleuu0) 
RO). Cc 
281. COMMOR/SELUCKS LZEULZEs ZTOLPV, 2ZTCCST, ZTOLRS- ZTOLSM pQKUy QMA, QBAVQFI 
SS l wt Uy WBE ey QA UPL 2 QM, OZ pQL ys Uk + ONG QUy NRMAX sNEMAX, Q39QCye 
5336 2 WE pQH awl yWOrQRs WM, QG_, NT MAX 
5BS.6 (= 
Ve COMMON DSUMyUPRUDs O¥e0re UP 18( 6089 X(60),Y (603 pYTEMP(O0)sAGE, 
466 1 SUMINF yp ICNAM( Leds 2) ¢ NAME (20) eNTEMP( 20 39MS TAT, LOBU¢ IRIWP, 
SAT 2 IViNeLVCUT, I TCNTs LNVERQ,ITRE RG TERE Ls JCOL PyNROWsNCOL NEL My 
83 3 Ne TA,sNLELEM pNLETA,NUELEM NUE TAs JH( 60) sKINBAS(L22),LAL 122)» 
SBI. 4 Le €1l002)_, TA (2000) yLEL4000) pXLB(122) eXUH(1 22) 
de C 
br NELEM = NeLEM + 1 
59:2 « TE CNELEM) = IRUnWP 
594 E(NELEM) = YILROWP ) 
me Lee C 
595. 00 1000 1 = leNkKUW 
5966 IF (2 .«Eue. IkUwWP) GO TO i000 
597. IF (DABSCYC1)) LE. 2ZTOLZE) wU TO 1000 
de 1FLEM = NELEM + | 
99. TEC NELEM) = I 
£006 EQ(NELEM) = Y(I) 
E01 LOCO CONTINUE 
éG%« fa 
603.6 NETA = NceTA + 1 
B04, LE(NETAti) = NELcM + | 
- RETURN 
6066 END 
607. SUBRULTING SHIFT R( TOLU, LNEW) 
6086 C 
6096 €c RE ARRANGES CATA STORAGE 
39 


NT Se IOI aE TT TT EL OC TE OY EE CONTE ET TT TE TE OT OPIS “wt =e — mune? 


as ee 


as 


ni LTTON 


él). C SUBRUUT ING avaéPTcu FRUM INE AK PRUGRAMMING COL 

oe c ay eAe TUMLIN (UPERATIONS RESEARCH, STANFOKD UNIVERSITY) 
Ghes ee OReREROHO SORT PTI Ur PARAMCTE RS *¥* 7 REE 4 

bEx ‘ WLC, NE® PARAMETERS I[NOEAING STORAGE LCCATIGNS IN atHICH 
614. uaTA ES TO Be TRANSFERRED (INPUT) 

ELS. CRT RARER RO ERE ORO EEE REG A EH hw 

616.6 ( 

él?. IMPLICTY REALE (Ay Cst—ts Osha Rows LZ) eg SEAL ®E LW gk eV) 

€13. l INTr GES #4 (I-New) 

(op Se ee INTEGERS2Z JHe KING ADS sLAsLEs TA, le 

629. YOUBLE vkeCISivoh ¢ (4Uu00) 

t2le RFAL Al.u00) 

t , € 


624. l Cp hs SA gue le IMI OZ ply dF oe UN 9 GU, NE MEAX pNeMAX yp whe QCy 

as Z wi pw ewhy wy QRe My GGe WT MAX 

2X6 { 

6z2T ie CCMMON >My bLPbU ue CX ep UF se DP 9 b1 60), XC GU) e V( 60) pYTE MPC EO) eAc Es 

28. 1 SUMING pp TCWAMU LE © 202 VAME (ZO) eNTEMP (20) oMSTAT, [O6U, IRUWP, 
“he 2 Lv iNsiVuuT, LTCNIg INVER Gy TITRE Re TEE E Ly JCOL PNR GWeNCOL es NELEM, 
he 3 Ne TAsgwori cm pNLtT Ay NGL CM eNUFTAgJH1 O00) pKINFASCL 22) et hile) » 
Le 4 CECLUOO2) sg TAC200US gp TE (4000) pXLG(1L22) ,X'5(1 22) 

632. ¢ 

633. BIMENSIUN BARRKAY (240) 

63%. EQUIVALENCE (GARKAYO1)-801)) 

EDs. IFC = (100 -- 1) * NRMAX 

E745 TFN = CINEW s 1) * NEMAA 

637 6 G 

$36 DS 10CG 1 = lyhkKOw 

639. BARKAY(IFN + I) = BARRAYCIFO + 1) 

£40. Luce CONTINUE 

c4le RETURN 

642. END 

£436 SUPROUTINE INVERT 

G4. Cc 

645.6 C COMPUTES INVERSE OF CURRENT BASIS BY LU DECOMPOSITION 

£46. & SYPROUTINE SGAPTED FRUM LINEAR PROGRAMMING CODE LeEM=iy wRITTEIN 
47, € BY J.Ae TUMLIN (GPERATIGNS RESEARCH, STANFORD) UNIVERSITY) 

E45 6 Cc 

649, IMPLICIT KEALES (A gCyEmH ey UrP ye Rowe 2) yg REAL#B (9gD AVY) ® 

£596 1 INTe GER*4 (IeNyQ) 

6516 INTEGER#. SHeRINBASsLAsLEs IAZIE 

6526 NOUBLE PRECISIUN ¢ (4000) 

6536 ZEAL A(Zyu00) 

ae Pe E 

55. COMMINR/OLUCKS TUL CEpLTULPVy ZTCOST, (TILK Sg ZTOLSM yp QRO ep QMApWOA eC QEL 

056. l GE Uy QBL awh pe PL es QM Ly id ewl paf » Ne QU NRMAX pNEMAXK, O89 0Ce 

657. 2 We pw He Gls We WRs My QGeNTMAX 

ES Xs € 

£59 « COMMON Code UP RUD, CV¥¢ Ute OP rp BI(O0 Dp AL GUISV( OO) eVYTE MPI GOD Agcy 

ELD 1 SUMING p TUNAMOL2c 9 2) 9 NAME (20) eNTEMP( 20) eMS TAT, 1 ORs TRuwP, 

thle 2 IVINgIVUUT, LICNTe INVER Ge LTRE RW ye LFFE LZ, JCOL PyNRO We NCUL,NELC Me 

6626 3 Ne TAs NLEL CM pNLET As NUELEM oe NUE TAyJH(60) eKINBAS( 122) ,LA0 122) 5 

6546 4 tet lLOuU2), {A C2000) ep LEI 4V00) eXL5(1i22) eXUSI1L 22) 

646 Cc 

665. INTEGER*. MRE eHKE Cg VREG 

6t45.6 JIMENSTON MRE G(OU) pHRE ol CU) ys VREGI 60) 

667. EQUIVALCNCE (MRE OC LI yg yTeMP (Ld), CAREGOLI eG VTEMPC ALDI eI VREGI LI e XCLDD 

€63. c 

E96 2 ScT PARAMETERS 

ETD 6 t 


OE EE TT I EC TE TT ee TE a ee ee Tee of 


SOMMON/StUEK/S cTUL ZE ep ZTOULP Ve LICOST, ZTIL RIS e ZTCLSM pQRE pg QMAsQOALUFI, 


——? 


ae 


a4 


An 


aan 


NETA rv) 


NLETA Jv 
NE TA U 
NEL EM 7) 
NEELEY¥ Vv 
{JELFM ) 
NABOVE 

Lay ot ee 1 
Se 

KR} } 
LRG Kaw +t Lb 
KRG = Kw 


PUT SLACKS AND ARTIFILEALS 


po EGG 1 Ly NFURn 

TF (REL) «GT. NROW} GO To 50 
LR& = LK =— 1 

MREG(LE4) = JHEL) 

VREG(LRe) = JHIL) 

GC TO $v 

KRY = KRE + i 

VEEC(KRIL = JHEL) 

HREG(I) = =L 

JH(T) = U 


CCNTIAUc 


KR3 = Lke ~1L 

LPS = LR4 

QO 20C 1 = LRoe KRG 
TR WREGIT) 


HREGCLF)= oC 
SAUER) =) ER 
KINBAS(IR) = IR 
CONTEAUE 


'GLL UJT VECTURKS otLUw 


NBNCNZ = KR& = LRG € 1 
CF (KRY s6W. OF GU TU LESO 
J = tri 


IV = VPEG( J) 

Lt = LACEV) 

KK = LACIVEL) ~1 

IRCNT = V9 

DO 220 i = LieKK 

NBNCNZ = NBENCONZ + 1 

Ie = JACI) 

Lf (HREGCER) «Ges OF GU TO 220 
F = ORGY -* 2 

HREGUIR) = HREGCIR) = 1 

[RP = TR 

CONTINUE 

TF CTRCNT = 1) 2507250¢300 

aRITE (6s 8 2008 

FURMATCLoOAUMATKIX SINGJLAR ) 

KINBAS(IV) = 0 

VREG( J) = VREGIKKI) 

KRI = KRL = 1 

IF (J «GTe KALI GU TC 310 


41 


| 
i 
j 
i 


BUMP AND 


P32 GY TS Bho 
133: ( 
PG, PEC vVREGE J) Vervithi) 
35.6 KRE = KRE = 1 
1366 CRS = LkS = 3} 
= 3? VREG(LPS) = i¥ 
Fave MREG(LRS) = Inbh 
PI, HREG(ITkP) = & 
M406 JH( IEP) = Lv 
Tale AINHAStiV) = Ene 
74>. EP Cd cule KKE? GG TO Biv 
l44e GO Ta 21d 
T4 +. VEC FE CU wots KREY GO TO SLO 
14. dy SESE 
746 6 a EY 240 
747. € 
j 144.6 € Polo CUT REMAT WING VECTURS ABOVE AND © tLOw THE 
"AY. C buMP ANU ESTABLISH MERIT COUNTS OF COLUMNS 
1S ( 
ToL. 31C NVREM = 9 
1526 TFCKRE -EQ. vd oD TO LIDO 
ASE. es J = LP 
T9546 320 IV = VRFeGtJ) 
7956 tt = GALES 
15H. KK = CACEV#LD ~ 1 
Lear TRCAT ) 
Take 90 80C | = bLieKK 
7159.6 TR = EAth) 
1606 TFOCRREG(IR) .Nke~ =2) Gs TO 40u 
Tél. C 
162 « C PIVOT ABLVE BUMP (PAKT OF L) 
16%. ¢ 
7E4s NABCVE = NAbUve + 1 
1bE5.6 TPOWP = IR 
16H. CALL LNPACKIIV) 
THT. CALL WRETA 
THM. NLETA = NETA 
7696 JHCTR) = Iv 
EP KIN@PASCIV) = Tk 
71. VRFEGCS) = VetGtkKk)] ) 
Tay ger KKL = KRL = 1 
Tle NVREM = NVREM # 2 
4 « HEEGE IR) = fv 
Fades GO TD G4J 
17% © ¢ 
ETT « 4CC LF CHREGIIR) etre UP LU TO 80U 
(73.6 FRONT = PRONT + 1 
TB frp = tr 
§ Tad. 3CO CONTIN: 
5 Tle G 
787.6 fF CYRCUT ~ LL) olW¥e900C,1000 
\ 7236 ALC WRITE (e,du0U) 
¥ T94. KINBAS (IV) iV) 
\ T85% VPEG(S) = Vkeolnewi) 
TAG. NVREM = NVREM + 
t Tate Kk] = kk] = 1 
4 783 6 TF (id ecole Kei) GU TU lulu 
y TH. GC TO 32u 
190 Cc 
? TOL. c PueT veC TUR BELUW bUMP 
x 752 « & 
o 
a 42 
Ly 
& | 
4 | 
te 


Ba a = — r PRT CREME EST PTE 


RPT 9 ae Pt hs OR el a A 


9C0 


VREG(J) 


VP EGIL >) 
MREGOLK 3) 
HREGCIRP) 
JHC TRE) 
KRINPASCIV) 
CHANGE KU 
90 95¢ Il 
Pre = ACL EA 
TF CHREGILITR) 
HREG( TIF) 
CONTIAUL 
TF {5 «GT 
Go 32u 
Te Gd 
J = Jt] 
60 TO 32vU 
TFCNVREM 


KR1) 


KeKL) 


evle 


oGle 
otl 
(KR Ll ete. Vi 
1100 J = 
VELGCS) 
LACIV) 
' LACIV+ti) 
IMCNT = 0 
DO 1050 F = 
TR = IACI) 
fF CHREGCIR) 
IMCNT = IMCNT — 
CONTINUE 
MREG(J) = 
CONTINUE 


IMCNT 


SURT 


tsp = Ll 

TF €KR1 oh Te 

TSU = 2*I15D 

TO Lluvo 
[so = 


GC 


{SD 


t 


EE tiS8 
ISK l 
SJ Ton 

VSt IsKk + ISO 
[SY MkEvilsud 
[SZ ViscOtLloL) 
fF (TS¥ oi To. Mkt 
St = E55 * FSD 
MREG( ISL) = ISY 
VREG( ISL) isd 
[ISK = [5K # 1 

TF CL USK + PSD) 


olLts wl 


ele 


HREGCT IR) + 1 


C) 


eGt. 


2*fsu) 


VREGInkL ) 


LCULNTS 


LieskKK 


0) GU TO 950 


GU TO 1010 


GLU TO ivlu 


24 70 SLO 


MEK LT COUNTS 


TO 2190 


wu 


LR1i,gKKL 


a 


LL ek 


ud) GU TU LludU 


(HREG( IRD ti) 


CULUMNS 


GU TO L1U8 


ND Jt 
Gu TU 


INTTIALiZATION 
Llu? 


GdISs)) GUO Tu L104 


Gu TO L1LUZ 
43 


Kel) 


eite 


INTU MERIT CREF 
UsiNG SHELL ORT 


TSD = €ESD - 1} 4 2 
Ge 9 tivi 
TSE = Ys # 1S) 
MReEGC ISL) MREG(I SJ) 
VREG(ISLI = VREGCE SJ) 
[SJ = [SJ ISD 
{F (1SJ «GT. UI GU TU 1103 
GU *0 1105 
CONTIAGE 
cND OF SGRT ROUTINE 


PLT UUT BELUw BUMP ETAS (PART CGF J) 


NSLCK = 

NBELOh = OU 

NELAST = NEMAX 

NTLAST = NTMAX 

LE(NTLAST + 1) = NELAST + 1 


LR = LFS 

IF (LR3 «oe. Lk) LR = LR 
IF (LR .GTe KR) GC TO 205u 
JK = Kee + 1 

DO 20CO JJ= LR eR RG 

JK JK-2 

Iv VPEGUIK) 

I = MREu( JK) 

NBELOwn = NBELUOW + 1 

IF (IV «GTe NROW) CO TO 1200 
NSLCK = NSLCK + 1 

LL = LA(IV) 

KK = LACIV+L) 1 

Tr (fK «oTe LL) FO TO 1300 
TF (APS(A(LL) = 1.) -LE. ZTOLZE) GO TU 2000 


NUETA = NUETA + 1 

DD 14CO Jv = Lb eKK 

{Rk = IAS) 

fF (IR .€Q- TIGU TU i390 
LE(NELAST) = IR 
E(NELAST) = ACJ) 

NELAST = NELAST = 1 
NJELEM = NUELEM + 1 

6G T9 1400 

EP = Alu) 

CONTINUE 

TEQ(NELAST) if 

E(NELAST) = EP 
LE(NTLAST) = NELAST 
NELAST = NELAST © 1 
NTLAST = NILAST = 1 
NJELEM = NUELEM + 1 
CONTINUE 

LFCKEL cEWe 9) GU TC 3500 


NC LeU DECOMPOSITION UF BUMP 
OO 30CO J = Lak1lyKRI 
Iv = VRbEu(J) 


CALL UNPALKIIV) 
CALL FTKANG2) 


LP nd st REE et SAE 


SiS. ThRow? rv) 


S14. IRCMIN ~GSISGS 
ev? . pO 2260 ft = Ly NRUW 
Gls. FF (DABSAY(L2) elt. ZTGLPV) Gu TI Zido 
G19. IF (HREGCT) -bE-0) GO TG 2100 
z 920. IF CHREOtE) «hE. IRECMEN) GU TD zlvo 
GPM IROMIAN = HREOC) 
G22 LRowP I 
G2 he 21ce CONTI AUe 
G24e te €ERUsr oGTs OF Ge TO 2kSu 
9254 wRITE(G,du0d) 
$26 < KINBAS(IV) = JU 
O27, 60 TL 3900 
. is A | C 
29. 2150 (NCP = HkKeEGiIRKRLWP) + 5 
939. c 
S3h C WRETE Lb AMO U EFAS 
G3 « c 
G33. IF {J sfue KRLI GO TU 2160 
FG. NELFM = NELEM + 1 
935. LFE(NeELEM) = TKGwP : 
SIh 6 E(NELEM) = YUL RUaP) i 
Gar. 2160 DO 2300 I = LlsikGw 
$383. IF (1 .ece IRUwP) GU TO 2300 ! 
139. wy TECOSESCYCT)) .LE. 2TGL2E) GU TC 2309 | 
949. Y IF QHuetee hl? sGte OF} CGO Tu 2200 
/ S41. € 
642. c L ETA ELEMENTS } 
| C43. Cc f 
| Care NELEM = NELEM # 1 j 
C45, TF (NELEM) = I i 
| 54, E(NELEM) = YA) : 
| G4a7, GO TH 2500 t 
| 54%. C : 
| S496 C UJ ETA ELEMENTS 
| $5. C 
| Cal« 22C0 TECNELAsT) = |! 
| Goes EQ(NELAST) = YT) 
f 653. NELAST = NELAST = 1 
| 554.6 NUELEM = NUELEM + 1 
f 55. 23CC CONTIAY 
C56. C 
| G57, JHCIROWP) = LV 
- - G58. KINGAS(IV) = TRGwP 
| C59. NUFTA = NUETA # 1 
C6). TEUNELAST) = TkGwe 
F S61. If (J «Nee wk1) GU Tu 2430 
Gb? 6 E(NELAST) = YOTRUWP) 
5 G63. G0 TO Z@s40 
% S646 2330 E(NELAST) = ie 
G65. NETA = WeTA * 1 
I Shh. LE CMe TA+h) = NELEM * I 
| et G67. 2340 NUELEM = NUELEM + 1 
f Gude LEC NTLAST) = NELAST 
| S69. NELAST = NELAST = 1 
! ST). NTLAST = NTLAST = 1} 
| * Cri 
| » G726 3 UPDATE RKuW CULNTS 
S736 Cc 
v C14. OO 2360 [ = 1»yNROW 
p 6T5 6 If (DABSCYOL)) .LE. éTUL2c) GU TO 2.90 
/ ” 
| 
, # 45 
gE & 
_ o 
fl 
q 
i 
| 
4 
s 
; 


Te ai olaniniabaetacine cette canes, ceaddea aie anita eee Aggie shi lt 


oa 


pur 


4+ 


Sa oR ee 


* 


* 


CcT4. IF CHREGGI) sore UI BL TO 2350 
Yor HRECOT) = Hetull) «- INCK 
GT. TF CHRESGL) «Gee OF AHREGITA = —| 
97%. 235C CONTIN 
GRY. HREG(TPOWwP?) = U 
SSl. 3CCC CONFENUE 
q . C 
GSU4. € Mtkuot L ANC U ETAS 
GR4o. Cc 
GR5. 35CO NLETA = NETA 
GH NETA = NLETA + NUETA 
She, NLELE* = NELEM 
Sk3. NELEM = NLeceM + NUELEM 
G89. ff (NUELEM -b&@. OF GO TO 355u 
GG). EAC SHEEE 
GSl. € 
S92. C {woth T SLACKS FOR DELETEL COLUMNS 
S956 € 
994. 355¢€ Of 369C I = LyNKGn 
e005. IF CJFOCLY «Nes UF GE TA 3000 
SGA. JHCE) = I 
S97. TROWP = 1} 
£93. CALL UNPACKOL) 
g9q9.. CALL FTRANCA) 
ECO0. CALL wkeTA 
lUOl. 36CC CONTINVE 
1092. C 
WOOa. ¢ UPUATE X 
100%. C 
COS. CALL ShlteTRO1L,5) 
1006. OO 9CCe J=leNCUr 
1007. IF (KIMBADSIJ)) 860048700, 9000 
1CO3-~ 96CC DE = xXUd( J) 
1009. GO Ia Y7Fso 
OLD. 87CC DE = XLbiJ) 
LOLL. e7so Lk = tweu) 
I0i2 KK = LACU+L) ~ |b 
FCED« DO 8B8CO [=Liekk 
LClt. tR = FAL) 
ICLS. escc YCLR) = YCIR) AU 1L)I*V0E 
HEL SOCC CUNTINGE 
cl’. CALL FIKFANCL) 
HCl. CALL SHIFTR(392) 
IC1L9. C 
1029.6 € PRINT STATISTICS 
LO? Ts € 
10? NOFO = NELEM = NETA 
10236 NSTR = NRGw 7 NSLCK 
Loe %e C 
W256 PET \ 
102%. END 
10276 SUBRULTING UNPACKOUT¥) 
1 1246 & 
16296 c EXPANUS CUMPK ES ScO MATRIX COLUMNS 
102%. c CUPS CITI Ne ADAPTED FRUM LIWEAR PRUGRAMMING CODE LPM=Le we [TIC N 
1C31. C BY Jee TUMLT Ws (OPERATIGNS KEStARCH, STANFORD JNIVERSITY) 
1¢3?. Cee teary ede SCR LE TIUN OF PARAMETERS * *® €& om & 
1033. c 1y = PARAMETES INDEXING COLUMN TO BE EXPANDED CINP UT) 
1€ 34.6 CREED Re RR ERR EH SERGE REE E EE SERRE SE 
1035. c 
10366 LMPLICIT me Ac*®4 (AgCrt=H4_) Jere Kmwe ld REAL #8 (Rel ereV) > 


ok oa 


46 


rk OB neh tS te is gmettiaetn eM bate a 


a el a i cine i asl 


LO3F. i INTsGir*®4 U)-NyU) 


1039. INTEGER#2 Ute KN GASetAglkslAgte 
1039, JOSE Previslith & t4us00 
1049. REAL Atéguud) 
z LE42 « c 
1042. COMMOR/OLULK/ 2TOL ZEgcTOLPVe 2TCOST, 2TOL RI, ZT CLSMy URL OMA WBA put ly 
1043-6 1 wb Us VBL QA sg WPL QM le QZ ply dt »dNyQUy NEMAXK pNt MAX, Gedy 
1C44. ‘ woah pubes wladhe UM yp QG, NT MAX 
a 1C45. C 
1046. COMMON USUMs UPKUOU, UY 20c, DP BL 00) e XI GUI sY( 00) sYTEMP(S0) Anke 
1C4) 6 1 SIMING pTENAMO Lede ZZ) eNAME (20) aNTEMP( 20) sMS TAT, [LOBU, [Rowe , 
1048. 2 IVINe LT VUUT, LTCNT, ENVFR Us LTRE PQS EFFE 2, JCOL PypNROWs COL, NEL My 
~ 6 149. a Me TALE L OM pNLCE TA yNSELEM NUE TAs IH(60) KINGAS(L 22) LAC L222) 
1050. "4 LELLOVe de LAL ZINN) pg LE @OU0) »XLB(122) »XUB(1L 22) 
LOS). Cc 
O52. Of IDC { = L»NROW 
| O52. VERT = We 
1C54. LCC CONTE NCE 
1055. £ 
1036. tt = tAthyv) 
lost. KK = LACIV4#ld - 1 
1658. DO 20C f = LiskKK 
105). IR = LAtl) 
106). Y(I@) = ACT) 
Obl. 200 CONTINGE 
1°4?. C 
FESS ke TUPR 
1664. END 
1C63.6 SUBROUTINE SHFTE 
1Cé46. Cc 
\Cé?. Cc SJBRLUTING FUR INVERT 
166%. Cc SJA*LUTINE AVAPTED FROM LINEAR PROGRAMMING CODE LPM=@1, wx IT TTEN 
196%. C BY JdeAe TUMLIN (GPERATIGNS RESEARCH, STANFORD UNIVERSITY) 
icTD.. c 
IC Ti. IMPLICIT KeaAir4 (A gC rE*H eOeP eRe 2). 5 REALHB Ut gD AGY] y 
1072. l INTEGER¥4 (l-N,Q) 
fers INTESER*. SHeK INGA Se LAgLEsITAglE 
L074. DaYBLE PreCI$St&w = (4000) 
LC FS. wEAL &8(<uU00) 
1074. € 
LO??? .« COMMON/BRLUCKS ZTULLCZEpZTOLPVe ZTCCST, ZTOLRUy ZT GOLSM pwKD» QDMA WA WEI g 
LC Fre 1 wE Uy CBLypQA gw PL y OMT, G2 eal e QF y UN» QUy NRMAX gp Ne MAX, UB a ule 
pH ay ee 2 we gw tte Ly QUeQR eM gQGy Nt MAX 
LOKD. a 
LOLs COMMUN GUSUMpUPKUL, LY gUc, DP2B( OU) XC OU)» YIGO) pYTEMP( UG gant y 
* 1C8? L SUMLWE y IONAME Lees 2) NAME C20) pNTEMP O20) MS TAT, LOB y ikUaP se 
1093. é IViNe LVOQUT, ITONT, INVER Uy ETRE RW  LEEE 2s JCOL PeNRGWe NC UL e NELE Me 
« 1C%4. 5 NE TA, NLELEM @eNLETA ,NJELEM NUE TAG UH (OU sR INBASIL 22) LAU Lee) » 
%, ICh5. 4 LECLUUL)y TAC 2090), LEC4UIG) XLB (122) sXUB(1 22) 
ICES. G 
| ICPT. c SHIFT 1€ ANU € GF VU ELEMENTS 
Pa 1088. ¢ 
a 109%. NF = REMAX = NUc&LemM + 1 
10°. INCR = u 
} Col. NO 1OCO | = NF »NEMAX 
3 1C9? « [ING® = §NCk * J 
4 1063. TECNLELEM + INCK) = TECT) 
‘, 109%. E(NLELEM @ INCR) = ECT) 
4 19S%-6 LCCG CONTINUE 
x 1094. c 
1C%7. Pole NcoMAA = NWLELEM = NYELEM 


47 


sbinpontaabia trvhgaeh ibe Ale NESE Bao AoC tr A tein. en Nth he ae 


a 


INC 
Diteke t iah pi TM AX 

TN4 Liye # Lb 

LeE(NLe Ta © INCH) LECT =~ Loses 
2900 CONTINU: 

LEC(NE TAC. ) = WECEM # i 

ke Tie 

END 


SURPOLTINE UPbeT 4 


c 
c UPCATES Raunt HANG SfUcS TU REFLECT NEw BASTS RESULTING FRGM 
¢ EuebbaT SIMPL eA Pivot 
c Sue TINE AJAWMTEO FROM LIWEARK PROGRAMMING CODE LPMRL, we LTTEN 
Cc V¥ JeAe TuMeln (SreRKATI GAS RESEARCH, STANFORD UNIVERSITY) 
c 
IMPLECL ntar¥®e (Ay Cyt yp DOePenmwe 2) 4 REALES (9 p09 XV) gy 
L INTeurk #4] (JW, ia) 
INTEGER Joy AT SASptAgh piAVIE 
INTEGER se TPART» INCUMB,LVGNU,IVID,! CeO 
DOUSLE PRtVISTUN &€ €4000) 
REAL 2426000) 
€ 
COMMUN SLCCRA €TUL ZEgZTULP Ve ZTCOST, ZTIL RI ZTCLSM yp WRU» QMAy aA DWF» 
i wel, WSL ewWAr IPL ea UM Teed rw lbawh eo Gly QU, NRMAX pNEMAX, br OCe 
? Wow bale Joe Wie WM pQGy NT MAX 
P 
COMMUN eC UL KES UEP ARI (CoO) yKREVENG, ING VAL, TCUL sLISTL eT VAL, IDIK» 
L TPART (122), INCIMB (122) yLVGNU( 500) »IVIO(50U), 
2 LUGNC¢ S00) pNP LT VOT, IP IYPE sRCUST TR EAS 
Ps 
COMME NR GodMyOP KU, UYy Ut, UP eS (OU) AC GUI Y(00) pYTEMPLOU) Arts 
i eu INR TEN AMOL 2d) cde NAME (20) TEMP (20) sMS TAT, LOBUri KGwP, 
[LVINg VuGT,ITUNT, INVERWs ITREP YZ LF FEZ, JCOL PyNROWgNCUL» NELEMy 
ae TAVNLEL EM aNLETA DNUEL EM PNLE TA SHE OU) PRIN BASEL 22) LAU 2c) » 
4 Le CLOVE), TA (2000) + LE(4U00) pXLB (122) yXUB(1L 22) 
¢ 


UO LOCO .ahyNwle 
WGeG UT) = aAbTs = VET) *0e 
EF (NPIVOT sks bk) ou Th 2000 
RINDAS(IJCULP) = ~( KINGAS(JCOLP) + 1) 
{VOUT = JULY 
cP Tse A 
(Teer) = oe 
TVOUT = JHITRUWP) 
KINBAS(JCULP) = [ROW 


ie) 
? 
oO 


KINFAS(I VOUT) = IPTYPE 
JHCTHE OW) = JOLLY 
RETURN 

END 


UBRILVide NuUKMaLCITSINV) 


c 
¢ SeRVLd wS MASTEK PRUGEKAM FUR LINEAR PKUGR AMMING CUMPONENT 
C CHEV Lot, PRIMAL= sIMP LEX METHOU) OF BRANCHSAND=HKCUND ROUTINE Bb 
€ Seer ITINE AUVAP TED FRKUAM LINEAR PROGRAMMING COOE LPM Ly wR TTTON 
c ‘Y Gee TOMLIN CUPLRATLUNS KESEARCH, STANFURL UNIVERSITY) 
Ces eexa re OE SCL APTION Ur PAKAME TEKS ¥ ee ae ee & 

c IVSEINV = WUMOcR UF STMPLEX LTERATIUNS SINCE LAST bASIS 

c INVekS TUN CINPIT/UUTPUT ) 

(CS BOR YOK tote RON Om ok Rt eg ORORO gk RO ROK aka tea tok 
(f 
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SLE ETT EL FT RE eS TTS 
* eS ie Me fc ew e 


nr rs 


rr a 


nesta atta 


os 


Ce ee ee 


ee 


IMPLICTT wmeEAc¥4 (ArCaE-iNyOePeR-ws 2) 6 REAL (Selieka¥ ds 
i INTEGER*%@ (1-Ny&) 

INTESGER*<c JHe KINDASsLA,L et, LA, LE 

INTEGER*2 LPakT, INCUMSs LVBNUSIVIDAT Cit 

DOUBLE PRECISIUN & (4000) 

REAL AIZULU0) 


( 
COMMON/ELUCKS “LTUL Lee ZTULPVeZICOSTs ZTOL RG, ZT OL SM p Qk 15, QMA, UGA LF 1, 
L Woy ebb edhe QPL Mle UL ed lus ONy Qhly NeMAX yNEMAK, Qt puly 
2 we PUN pb pWO eGR oe Me QGyNTMAX 
c 
CUMMON/BLUCK ES UFPARTI(CO) ,REVONL, INCVAL , ICGL LISTE TVAL IOI Ry 
L TPART (122), 1NCUMB( 122) pLVBNO( 500) sividlSuud, 
2 [LLUSNC(S00) »NPIVOT, ITP TYPE, RCOSTs LF EAL 
c 
COMMON OSUMe, UPRUUe CY¥e De, UP 14160), X1 E00), 00) sYTEMPCCO) Ast ys 
1 SUMING y ICNAM (i229 Cd) pNAME( ZU) pNTEMP( 20) ,MS TAT, 1LO65,1R DWP, 
<2 IV iNs LVOUT, LTICNT, INVER Q,LTREPQ ST FFE Ls JOOL PENNE OW ea nC, NELEMs 
x NoTAygNL el tM pNLETA+NJELEM NUE TAs JH (OU) @NINBAS(1 22) LAC L2cis 
4 LECLUVE) s LACEVIG) A TEI 4000) gXLo(l22) .XUsli 22) 
c 


IF CY TSINV w2LT. INVFRKQ) GO TO 1500 
LOCC CALL INVERT 


ITSINY C 
¢ 
Cc SIMPLEX CYCLe 
€ 


L5CC CALL FCKML 
CALL FTIRKAN 
CALL FRKILE 
HF CJCOLPY «GT. UY GO Te 3000 
TF €MSTAT «tue Ot ) GO TO 2600 
MSTAT = WoL 
6U TO 6UKO 
20CC MSTAT = WN 
GO TA 6uu" 


30CC IVIN = veulP 


CALL UNPACK (COL P) 
CALL FTRANGOL) 
CALL CHEZ 


CALL CPHETA 
TTCONT = FTCRT + I 
ITSINV = ITSINV * 1 
IF (NFIvuUT «EQ. YU) CO TU 401” 
IF (NEFLEEM «GT. 5600) GO TO 1000 
CALL wWRecTa 
4C1C IF CLITSINV ebes INVFRQ) Gu Tu LGOC 
TE CITCNT oGte LIRFROQI GU TO 6069 
GO FO TSuv 
6OCC RETLEN 
END 
SUBFOLTINE BANLBCINITBu, TTSINV) 


c 

e MASTER PRUGFAM FO BRANCH=AND=BOUN) INTESE2 PROGRAMMING 

C FOLTINE. AloG SERVES AS MASTER FF RAM FOR SEOPTIMIZATLIIN 
C VIA FEVESto DUAL@=SIMPLEX METHUD ab Tex A FCRWARD SRANCH. 
CUP ReaKHEOE SCR TPTION GF PARAMETERS # OH ea REE 


INTTHO = INITIAL LOWER 3UUND ON MAATMAL GBJECTIVe VALUE CEINPIJT) 
1VStwv = NUMPER OF SIMPLEA ITERATIONS SINCE LAST BASIS 
INVERS ION €LNPUT/OUTPLT) 


aan 
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1 a AE Bn (SEN na a 1S in ahi 2 


' 
2276 (CR Rm RR A I A OR EE EE A 
le2l. ( 
1222. IMPLICIT REAL#S (AyUgt He OpPyRaWe 2) 9 XEAL*B (Oe eXeV) 
1223. 1 INTEGER *4 (I-Ny Q) 
g 1224. INTESER*. Uitte KIN bASelLAglL te LA, IE 
¥ 1225 INTEGER? LPART, INCUMBs, 1 VoMUsIVID eT CoND 
L22he DOUBLE PRECISION t (4000) 
L227. REAL Al guun) 
228. CUMMIR/OLUCK/ LT CECE, ZTULPV, 2TCOST, ZTULRJyZTOLSMy QR QMAy OBA sQFI » } 
1229-6 L wh Gy woLeQArwPls UM1y UZ Qh ys QF e ON» QUy NRMAX pNEMAX, QB, wl i 
1239. Z Co pute Nbhy QO QR, UM ple NT MAX 
1231. CUMMON/5LUCKEe/ DEP ART(0U) pREVBND, INCVALsICOLeLISTLyIVAL IDI RA, 
1232. L LPART (L122), INCUMB( 122) ,TVBNDG 500) »EVIOCSUu), 
L233 2 LGoNQ( 200) »NPIL VOT, IPTYPE,RCOST,IFEAS 
1234. COMMOR GooMeUPR. De LY ep Ute VR gh (60) XC GUI VOU) pYTEMP(60) pAe Ee 
1235. } SUMINF s IONAMO Leer ed de NAME (CC) pNTEMP( 20) ¢MS TAT, LQGBU, IRUWP, 
L236-« 2 [VINgIVUUTs LICAT, INVER Gp TT RFR Qe TFFEZ, JCOL PypNxOWeNCOLe NEL CMe 
1237. 3 Ne TAgNLELEM pNLiTAeNUC LEM pNUE TAgJH( 60) KINBAS(L 22) LAL L22) 2 
123R. 4 Le (lOve), TACLu0UI se TEC eUOC) eXLol(le2)sXU3Ci 22) q 
1239. IF (UTCNT obese LIRFRW) RETURN ) 
124). IfFEAS = VU 
1241. LESTE = 
1242. {INCVAL = INITBO 
12436 € TEST tUR FATHOMING 
1244. 160 CALL TEST X 
124%. IF (STAT wwe VBL GO FO 200 
L246. € CUPEELT NOD FATHUMED; BACKTRACK TU LAST PROMISING NODE UN LIST 
1247. 150 CALL 2KTKAK 
1243. c Tr CLST TS EMPTY, RETURN TU MAIN( COMPUTATIONS CGOMPLETcD) 
1249.6 YE (LESTL ctu. OF RETURN 
Y259% C CSE PRIMAL SIMPLEX Mc THUY FOR RECPTIMIZATIGN AT NEW NUDE 
i25l. PALL NOSMAL(ITSING) 
1252 1 (LTCNT ete LTKh FAW) RETURN 
1253.6 GO TR kv 
1254. C CURRENT NUDE NUT FATHUMED; COMPUTE PENALTIES 
L275. C BRANCHING AT CURRENT NODE IS DONE FROM SUBROUTINE PENLTS | 
1254.6 2CC CALL FENLTS ; 
125? « If CICirt) 4uueinl, C0 i 
l \. C 
1259.6 c REINVekKT CURRENT BASIS j 
1269. LCCC CALL INveRT 
1261 « ITSINY u 
1262. c | 
1263.6 c wedA& SIMPLEX CYCLE | 
1264. Cc 
1265. C CHCtsce RPIVUT eubw [TROWP 
12666 sCC CALL CCHUCR 
1267. IF (IFOWP «GT. Ud CO TU 400 
i 126%. MSTAT JRL 
; 1269. GS TO Luu 
1270.6 G CHCUSr FKIVUT COLUMN JCULP 
a 1271. 4CC CALL fCHULZE 
{ betas FF (JCGLP cEQ. OF GO TO 150 
d 1273. IVIN = JCULP 
1274. c PEATE KIGHT*HANG SIDES TU KEFLECT NEW BASIS RESIJLTING FROM 
. 12756 C CURS ENT sIMPLEX PIVUT 
i 127%. CALL LPstTA : 
3 1277. LTCNT = [TGNT + L 
P 1273. IF GiTCAT «Gee TTIRFRQ) RETURN 
a 1279.6 ITTSINV ITSINV + 1 
‘ 1289. ig CECTOE whe THER TOC KEINVERT CURRENT SASIS } 
a 50 


as 


SaAnaSs 


ao 


IA AAN 


¢ 


TE €ONECEM 2ST. S000) «Re CITSANY WV 
RE YRVER STUN NOT NECESSARY YET; AwkITE JT 
Li ‘Yt fey | LEX PivU 
CALt BRE TA 
Q Ft JU 
‘ 


SELECTS PIVCE KOmW TROWP FOR Ci 
TS [kKOaPsU Ir CURRENT BASIS iS GPTIMAL. 
CHUEScN TL tte Trt BOW wITH GREATEST PRIMAL 


IMPLICIT mEAL#4 (AygCel-HepOepPeRh—bhse 2)» REAL*E 
} INTEGERS4 CIN, Q) 
INTEGER XS JHeKINBAS si A,LE,IA, IE 


INTEGFRee [PART, INCUMBs LVBND, IVI0,1 00ND 
NOUBLE PReUTSTON + (4000) 
REAL #02000} 


[TERATION. 


JRRENT UGJAL<S 


COMMON/BLOCK/S 21Gb ZEy2ZTIOLPV, ZICCST, 2ZTOL RI 2TC 


eWMAe dBA yur! 


t GEU, UBL QA pQPL yp WMI, Q2 swl yg QF sQN, QUy NRMAX »pNEMAXs QOBy Cy 
2 Re pdb eWh ys WU g WK» OM ,QG, NI MAX 

CUMMON/BLUCK2/ DEP ART(600),REVBND, INCVAL yICOL,LISTLyIVAL, Sf 
! TPAKTI122) INC UMB( 122) gEVBNDO( S500) pIVIDGSUO)s 
2 LUoNDL500),NPIVOT, IPTYPE sRCGST, IF EAS 

COMMON VoUMUPKOU, UY eDEy DP 95 (60) ,A160)9Y (50) yYTEMP lOO) yAsEs 
i SUMING, ICiWAM( Leds 2) y¢NAMECZEO) sNTEMP( 20) pMS TAT, LOBU, LROWP, 

; iVINsIVOUT, TTCONT, INVER Qe TTRE RQ TREE Zs UCOL PyNKOW ye NCUL yy NELE My 
t NETA,sNLEL EM »NLETA yNUELEM gNUE TA, JH(60) »KINBAS(L 22) yLAL 122) 5 
4 LECLOO2 de LA L2000) pLEL 4000) gXLR E122) 9X0K 11 22) 


TROWP = ¥& 

DP = —L.ELO 

OC 1000 T=1,NRCw 

Te CF «EU, LOBUS GO TG £OOOo 


{COL = JHtI) 

Te URGE? athte (Xhatitee) = ZIOLZEI GO FO 160 
LE OX0TY o6Te (AUB CICOn) + ZTGLZED) GO TG 200 
56 Te ioVey 


ABLte ON RUW [ FALLS BELOW ITS 
Ho eee) 


BAST VARTABLE GN ROW [ EXCEEDS ITS UPPES 


OF = XCF} = AJC ICL) 

LF BE «tee. OF} GO: TO 1000 
TPTYPE -j 

TROUwP [ 


CONTINUE 
RETURKA 
END 


SUBPOL TING DLHUZ 


TTcrRa TUN. 


SELECTS PIVUT COLUMN JCULP FOR CURRENT OUAL~S 
SETS JOULP=O0 IF LP=PROBLEM AT CURRENT NODE 
QTRERWISE CHOUSES JCULP TU MAINTAIN PRIMAL<“OPTIMAL 


IMPLICIT ReAt*®4 (AyCyEeHe Ge PyKomy dd yg KE ALES 
1 INTEGLR*G (Ley) 


51. 


INFEAST Bice 


be 5 4 Sinn APO I t AcW  h 
———————— 


134?. INTEGER*®2 JiepRINSASetArL es lAvlE 
1343. INTEGER*2 LPARKT, INCUMB,IVBNUD, LV 10,1 ChND 
1444. DOUBLE PRECISIvuie & (4u0U) 
1345-6 REAL A(ZU0U0) 
1345. COMMON/SLUCK/S ZTUL Zep ZTULPV ey LZTCUCST, ZTULRI eo LT OL SMe URE» QMA, UA PCF I ys 
% 1347. i QEU, UBL QA, QPL» OME, G2 QS QF 9 WN QUy NRMAX pNeMAXA, QByQCe 
1348. 2 wE sQhpwlhs DO yp URy QM Gy NT MAX 
134?. COMMON OL ULRC/ UFPART(OU) pREVOND, INCVAL se ICOL pL ISTL»IVALsIUIR, 
1359. 1 LPART(122), INCUMB( 122) ,1LV8NO( 500) pIVID(5U0), 
135L. Z LU8ND(5U0),NPIVOT, LP TYPE, RCOST,IFEAS 
1352. COMMON DsUMsDPKUD, CY ¢DEs UP 98 (00) eX(6U),Y(60) yYTEMP(60) Arty 
1353. } SUMIENF y LCNAM( 162920 _¢NAME(20) pNTEMPL 20) -MS TAT, LOB, TROP, 
1354, 2 IVINsgIVCUT, TTONT, INVER Ge IT RE RV T FFE 2, JCOL PepNROWgNCOL,NELE My 
13556 5 NETAyNLEL EM yNLETAgNUcL = MeNUC TA gH 00) »KINBAS(122) pL AC 122), 
1356 < 4 LEC ic02d be TAG2Z000) pLECGI00) @XLB(L22) ,XdB(1L 22) 
LaShe € 
13528. JCGULP = v 
1359. Te (LPTvPe .tQ. ~1} GO FO LVV0 
13600. £ 
L201. Cc CEAVING VARIABLE FALLS 36LGOn [TS LOWS? BOUND 
L262. C 
1363. DP = -}.£10 
1264. O05 500 J=i,NCOL 
1365. IF (KINBAS(U) eGT.e 0) GO TU duV 
13645. TE COXUBES) — XLBIJ)) -LE. ZTULZE) GO TO 500 
1367. CALL UNPACK(J) 
1368. CALL FTRANG 1) 
1769. IF (KINBAS(J) «EQ. -1) GO TO 200 
137). IF (YC KUWP) + ZTOLPV) 225,225,500 
1371. 2CC IF (Y¥CIRUWP) = ZTGLPV) 5009225-,225 
EAT2 « c 
Ye 225 DE = YCIUdJI/YCIRUWP) 
1374. IF (DE = OP) 500:500,250 
1375. 25¢ JCQLP = J 
1374-6 oP = CE 
L377. 5CC CONTIN: 
L273. c 
7 1379. IF (JCCLP ete. 0) RETURN 
a 1289. CALL LNPACKIUCOLP) 
1381. CALL FIRAN(1) 
1382. {COL = JH¢CITRUWP) 
13836 OP = (XC RGwP) = KLSUCICOLII/Y (IL ROwP) 
‘ L284 « GO To 2006VU 
i235 Cc 
1284. C LEAVING VARIABLE ExCEEUS ITS UPPEK 3OUNC 
1387. C 
1388. 1CCO DP = j.ciU 
L389. oO 1500 J=1lsNCOL 
1399. IF (KINBAS(J) .GT. OF GU TO 1500 
L391. TF (CXYUEBCI) — XLBCJ)7 CLEs ZTULZE) Gd TT) 1500 ] 
1392. CALL LNPACK(Y9) 
; 1393. CALL FTKANGL) 
b 1394. 1F (KENDAS( J) «Eee ~1) GO TO 1200 
' 1395. TF (YCTRGaP) = ZTOLPV) 150091225) 1225 
13965 i2cc IF (V¥CIRGwWP) # ZTUOLPV) 1225912251500 
1397. ¢ 
1398. 1225 DOE = YCIUBJISZY(LRO WP) 
‘y 1399. TF (96 = DP) i250,1500,1L 500 
14U). 32t¢€ JCOLP = J 
1401. oP = CE 
i 1402. 15€C CONTINUE 
cl 
q 52 


a RE Se 


Se 


GE I RR ETE IY TY CE GTR AE PITT EER 


a4 


oN 


te SS 


a” 


1403. ( 

1494. PR €J€CLP ects 0) RETURN 

1405. ALL UNPACK(JCULP) 

1404. CALL FTIKANCL) 

1407. ICOL = JHUITROWF) 

1408. DP = (x(LKUnP) = AUBCICOLII/YCIROWP ) 

1409. € 

L419. ZUCO Le { JLULP ) £0. G) DE = DOP + XLBEJEDEP) 

1411. Lt S(CJILOLPY EQ “Ld Dr = DP + AUBCICOLP) 

L412. NPTYVOT L 

1413. RETURR 

1414. END 

14i5. SUBROLTINE TESTX 

L415. C 

L4lL7~ € TESTS trP-OPTIMAL SGLUTION AT CURKENT NODE FOR FATHOMING. 
1418. C FATHOMING UCCURS IF 

1419. € (1) cP PRUSLEM AT CURRENT NUDE 1S INFEASIBLE (MSTAT = WN) 3 OR 
142). € (2) LPwuPTIMAL CBU. VALUE CIVAL) «LE. GBI. VALUE GE CURRENT 
1421. (s INCUMBENT SULUTIGNCINCVAL) 3 Ck 

14226 € (3) LP=CPTIMAL SOLUTION SATISFIES INTEGER RESTRICTIONS. 
1423. (' 

147%. IMPLICIT KEAL¥4 (AgCetmHyOePyKmwe d) » REALFU ({BeD or eV) ¢ 

1425. L INTEGER*4 (I™Ne Q) 

14266 INTEGER*2 JHyKRINBAS,LAgLESIA,IE 

427. INTECER*e L[LPART,INCUMBe I VBNU, [VID,I CBND 

1423. MOUBLFE PRKECLTOLTON € (400U) 

1429, REAL Al2uuU0) 

L430 COMMON/ELOCK/ LZTUL ZEg2ZTULPV, ZTCOST, CTOLRI ZT OLSM QR: QMA,e QdA VFI g 
1431. L GEC y VBL QA QPL y QM 9 WZ QL QF 5 ON es QU NRMAX gNEMAX, QBrGCs 
14426 2 Wt pWhygQhy QO eGR, UM pUGy AT MAX 

1433. COMMOIN/DLULKE/ DER ART(600) sREVENDe INCVALs [COLyLISTLeIVALIOIRy 
1434, L [PART(1L22) ,INCUMB( 122) »TVBNDE 500) yiVID(5U00), 
Lasse : 1CKND(500) sNPIVOT, LPTYPE, ROOST, IF EAS 

1436. COMMON DSUM,UPKUUyDY,DEy0P,B (60), X60) +YC00) pYTEMPLOO) AVE, 
1437. 1 SUMINFs ICNAM( L229 0) ¢NAME(C 20) NTEMP( 20) gMS TAT, LGBUe TRUMP, 
143%. 2 LIVIN i VOUT, I TONT, INVER Ws LTREROGTFFE Z, JCOL PeNRGWeNCOLy)NELEM, 
1439. 3 NETAshL ELEM yNLETA,NUELEM eNUE TAg JH( GO) pKINBAS(1L 22) pLAlle2ds 
144%. 4 LECLOUd)» TA (2000) LE (4000) pKLB (122) ,XUB (122) 

1441. COMMON/STIMERS/S TEIRSTyTOPT IF VAL, ITCT 

1442. Or MELOEIR + ATOLZE 

14436 TVAL LUINT( OP) 

1444. te UDP sk Te Oe) EVAG = DVAE = 2 

1445. LF GOMSTAT sot. GN) sORs CEVAL <«tLE. INCVAL)) GO TO 4000 

1445.6 € 

1447. ff CUMPUTE INTEGER AND FRACTIONAL PARTS OF EACH BASIC VAR. 
1448. 

1449.6 00 10C J=lyikUw 

1459. IPART{I) = IUINTO(KR CL) + 2TOLZE) 

1451.6 NTEMP(1) = IvART(1) 

14592. 100 OFPASF(L) = X00) =— FLOATINTEMP(1L)) 

L453 6 G 

1454-6 C CHECK FUR ALL@ INTEGER SULUT ION 

1455 Cc 

1456.6 DO 20C 1l=lyhRIOw 

1497.6 TF (JRL) sts NROW) GO TO 200 

145%. TF (SFPART(L) eGte 2ZTULZE) RETURN 

1457.6 2CC CONTINUE 

1460.6 c 

1461.6 e SULUTICN ALL=INTEGER? INSTALL AS NEW INCUMBENT 

14626 Mi 

463.6 c COMPUTE ANU UUTPUT COMPUTATION TIME REQUIRED TO FEACH NEw 


a 


ET ETA TA TE I ORE ST ECW EN EN TET RL AE FPN I ST ee by 


—~ 


ee 


as 


a 


oa 3 


> 


YAAAAAAADBRANHA 


INCUMi LAT SOLUTION. ALSU GUTPLT Gods. VAL. FUR THIS SGLUT ION. 
CALL PCLUCKIUT I4e, ITOT) 
TOPT = JTIMe/1l CU. 
wREITE (6,1) TOPT si VAL 
FORMAT ¢* (IME =*,FTecs* SECUNDS: INCVAL =*,110) 
IF €1TFEAS ste 13 GO TO 500 


FIRST Turi 
TFVAL = LVAL 
IFEAS = } 


INCVAL = iVAL 
NO 10C0 Y=] »NCUL 
TF (KINBAS (41) 600, 7T0U,1L000 


INCUMB(5) = IJINTOXUE(I)) 
GU TG lus 
INCUME (3) = LULNTOXLB(J)) 


> CONTIAUE 


OO LLCO L=1L,yNkKUw 

COL = JHEP) 
INCU“S(1ECL) = TPART(I) 
CONTINUE 


CURRENT PRCSLEM NO LUNGER OF INTEREST 


MSTAT = ul 
FETURA 
END 


SUBPOLTINE PENLTS 


COMPUTES TOMLIN'S IMPRUVEUD JP= AND OOwve— PENALTIES AND THE 
GOMORY PENALTY FUR EACH NUNINTCGER BASIC VARI ABLE. ALSO CHECKS 
FOR FURCEU BRAWCHES UN bBUTH CcASTC AND NONSASIC VARTABLES. IN 
THE ABSENCE GE FORCED BRANCHES GN BASIC VARIABLES? Thre 

PR ANCHING VAR LaclLE TS CHUSEN To BE THE ONE WITH LARGEST 
ASSCCIATED UP= CR UUwN=@PENALTY. THE FORWARD #RANCH [5 TAKtin IN 
THE UlxteCTLUN OFPPUSITe TO THE MAXIMUM PENALTY. THE WUDE 
CORKESHENUING TC THe dRANCH IN THE SAME OIRECTION AS THe 
MAXIMUM PcNALTY IS ADUVED Tu THE LIST, Tu BE EXAMINED LATER. 

THE crKANCGHING PeClESS ITSELF TS CARRIED OUT IN SUBROUTINE 
BRAKCH, whHILH ITS CALLED FRUM SUBRGJTINE PENLTS. 


IMPLICIT wmeAL*®@ (AyCyE~HyUpPyp Rowe 2)» KEAL*SA (ReDeXe VY) ® 

l INTcGtR*™4 (le Ww) 

INTESER*E JHeKINDASstAylLetyTAyle 

INTEGERS. [PART,INCUMb, Ii vVOND pT VID, I COND 

JVOUBLE PRECISION & (4000) 

REAL A@2vu0) 

REAL PUlcO);PU(EO) ¢PG(60) 

COMMON/oLUCK/ cTUL ZEp2ZTOLP Vy ZTCOST, 2TOLR I gp ZTOLSM yp URUy QMA, WAP QFI » 

L BEL e & OL ey QA gp ePL pWM ly GL edly dF UN e QUy NEMAX pNEMAKA QO, QL, 

2 WE pa ttywlh ye QUs dhe eM ee se NTMAX 

COMMON/E CLERKS UEP ART(O0) sREVEUNDs INCVAL Se 1COL pLISTLyIVALyIVIR, 

l PPART(L22) e INCUMB(12 2) ¢e 1LVSND(500) ¢IVID(50C) + 

é LCG NOUC500) NPT VOT, IP TYPE s2COST, IF EAS 

COMMON Gl My UPRUD) LY pp Dee UP oe B81 OU) AC OUD Se YI(OU) eYTEMP (UG) Ante 
sem dab ye TO NAM( L229 2) ¢NAMECEC) PNTEMP( 20) ¢MS TAT» 1 OBU, IKUWP, 
LVINe i VOUT TTONE » INVER Ge [TRE RO LEFE Ze JCOL Py NZOWeNCOL ys NELE My 
Ne TAyNLEL EM pNlc TA, NUEL CM pNUE TAG JH (GO) pRINBAS(122) LAL L22) 6 
Lee duced dy LACZUCO) yp LEC @OUC) eXLB( 122) XUB(L 22) 

1 10 l=igtkUnw 

LP COPPAR TOL) ab te 2IOLZE? GO TG 5 
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FoN eK 


1525. PULT) L2E6 
te. ° PO( 1) L.&6 
YS2T. »>GtT) leks 
1524. ;0 TO. EC 
1529. PUET) Ue 
ee 1530. POI!) = . 
pSaL« PG(1) Ue 
1532. 1¢ CONTINUE 
1533. C 
1534. OO 10€cC¢ v=} »yNCEL 
1535. TE (KINGASCI) 2GT.s« G2 GO TO 1000 
$935.6 IF ¢€¢(XUBIS) - XLBC 00) -LE- 2FLZE) GO TG 1000 
) et Ty CALL CNPAURIY) 
L53a4< CALL FIRAWLL) 
LS33. TF CK INBASC IS) -EQ. 8) GO TO 39 
1540. DO 20 L=i,NRUw 
1541. 20 VEL} = YUE) 
1542. € 
15436 € CHECK FLRK FORCED BRANCH ON XJ 
1544. 3C IF @ skhEs NROW GE TO Se 
1545.6 OP = X(fGBu) — YCLOBJ) + ZTULZE 
15456 IvVAL = IDINT(OP) 
1547. IF (DOP «tL To Ue) IVAL = IVAL - 1 
1543.4 IF (IVAL .uT. INCVALI GU TU 950 
1549. LOTR = 2*KINBAS( J) +# 1 
1550. IF CYCIkK eeu. wh) REVGND = SNGL (XUB(J)) 
1551 . [fF (FCIR EQ. 1) REVBND = SNoL(XLB( 4d) 
156526 TEOk = 2 | 
1553 CALL FRANCK 
L254. sO TO luvv 
S55. C ] 
1556. SC DG 500 f=isNkKOw 
LSS? « 1F (JREI) wutce NROw? GU TO 500 | 
1555.6 fF (OFPAKTCL) «LY. LZITULZE2 GO TO 500 
L599. C | 
1560. c CUMPUTE JP PENALTY FOR Xifds XJ 
1501. Tce FF CYTT) ~Gh. —2TO0L PV) GO To 200 
1542. DE = Y¥iluBJIF(UVEPARTIL) — Led /YCT) 
[5636 '\F €DE stte VYUROSS BD = ¥(108u) 
L5u%6 fF (OE ot Te PULLED) PUI) = DE 
12656 50 T st 
1366. C 
1567. € COMPUTE UOlUwN PENALTY FUR XO1}_ XJ | 
1503.6 ZGC If €VEL) «he ZTULPV) GO TO 300 
166%. NE = Y¥CLUBUPFOEP AR TCLIZY OL) 
‘ 1579. IF (OF si To YC IOBI}) VE = YC EOSJ) 
1571. IF (DE .LTs POLI) POULT) = DE {| 
tS7%26 C 
L573 ‘ CUMPUTE GOMERY PENALTY FOR XUI)- XJ 
i 157%. 306 OP = CABSCVUT)) 
LS F560 NTEMPCL) = ivINT (DP) 
157%. OP = OP = FLOATCNTEMP(L)) 
# LoTle IF CCCP ete. LZTOLZE) eRe (OP «GEe Le-ZTOLZEI) vO TO 500 
1578. LF. CVELE sits Gs F OP = be = OP 
L579 IF (OP «GT. OFPART(1)) GO TO sic 
1536 YE = V¥CIUBI)*IFPARTIE)/DP 
3 181. 560 TO 32u 
» 1582. $1C DE = YCLUBJ)*( Le = DFPARTOCIIIS¢1L. = OP) 
1553. S20 TF IDE wstita PGEEDI PELE) = OF 
? Lobo. C 
i 15356 ( NTIAUE 


” 
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a ca 


ee 


NT OC LTE ITE TIT EY ES TTI TET TO ION TT 


a4 


CUNTINUG 


CUMPCTE LARGEST GOMURY FeNALTY AND TcST FOR FATHUMING 
PEN = QO. 
OO 20CO L=isNROnw 
IF (JFC1L) elLEe NFUW) GU TO Zvv00 
IF (PG¢1) ~GT. PEN) PEN = P&E) 
CONTEINLE 
OP = XlfuUBU) = PEN + ZTOLZE 
[VAL = LuINT(0R) 
lL (400 «iL Tx Oot FWAL = BVAL = 2 
IF (IVA .GT. INCVAL) GO TO 3000 
TDO1* 
KETUPN 


J 


PRUBLEM NOT FATHUMED: CHECK FOR FORCED BRANCHES JN X(T) 

NTEMP (2) = & 

DG 39CO I=ipNnrblw 

TF (JECT) ebite NRUw) GO TO 3900 

IF (PUCE) «GT. PULLED) GU TO 3600 

OP = X¢FUdI) = PDOCT) ¢ ZTOLZE 

NTEMP(1) = LUINT(UP) 

[TF (DOP ekTs Oo} NIEMPECL) = NTEMPC LI = 1 

TE (NTEMP CL) eGTe INCVAL) GU TO 390G 
tuRCLD bRANCH UP ON ALL) 

IVAL = WleMeP(l) 

1LOFR = -»1 

NTEMP(1) = [PARTO(I) * 1 

GO TM 3fdv 


OP = Xtiuod) - Pull) + ZTOLZE 

NTEMP (1) = IDINT(UP) 

{F (OP .iTe ved NTEMPELL) = NTEMP( 1) = 1 

TF CNTEMPOL) 2GT. INCVAL) GO TO 3900 
FOKRCEO BRANCH UOWN UN A(T) 

IVAL = NT tMP(1L) 


IOIR =1 

NTEMP(L) = IPAKT(I) 
1ROWwP = | 

ICUL = JHOITFUWP) 

REVANE = FLUATINTEMPC1L)) 
NTEMP(2) = | 

CALL @RANCH 

CONTIAUL 


IF (NTEMP(2) «GT. CC) GU TO 5000 


NU FURCEO BRANCHES: CHOOSE 6RANCHING VAF. AND DIRECTION 
PEN = OQ. 
TKQWP = UV 
OF TERMENc BASIL VAR. X(LRUwWP) WETH MAX. UP= UR OCWN=PCNAL TY 
OD 4900 1=1 sWROW 
IF (Jt(T) «bt. NKUW) GU TO 4900 
TF (PLOT) «GT. POET) GO TO +600 
TF (PC(I) ele. PEN) GO TO 4900 
PEN = Ful) 
IRCWP = 1 
OIR = ~] 
NTEMP(L) = IPART(IT) ¢ 1 
REVBNE = FLUATINTE MPOL)) 
GO TC 49V00 


IF (PU(T) .LEe PEN) GU TU 4900 
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as 


1647. 
L543. 
16a, 
LoS), 
1651. 
1652. 
LE94~ 
Lob5%. 
1655. 
L656. 
loST. 
16586 
1659, 
1659, 
leole 
1G62. 
1663. 
Lé6%. 
L665.6 
Leés. 
1657. 
1668. 
1669. 
1670. 
LETHE « 
Lol2. 
L673. 
1674. 
LéE7T5~« 
L675. 
1677. 
1678. 
ié ras 
1680. 
LEAL. 
1682. 
1683.6 
1684-6 
16°95. 
16566 
1o&7. 
L663. 
L689 « 
LéE%) 6 
16°L. 
1692. 
1693.6 
1694, 
1695. 
LE96~ 
EGU « 
1693.6 
LéE99 6 


ADA 


CAC CEA 


GCC 


e 


& 


BECE 


710 


PEN = PUL) 


LROe? 

Tate } 

NY¥rmMP td) IPAri il) 

REVBND = #LEATENTE MPiLd) 

CONT INE 

1E (SROuP CTs ot } Ts 4950 
EACH UP Alle UlwN=POWALTY ste Of. (QUAL-UFEGENERACY) CHOUSE ANY 
NONINTc US WASITL VAR. AS SRKRAN nING VAP. 

OC 491 lkLa sfikla 

FF (uRFOCLE UWP) Ls Nruald ot Tu 49)]0 

TF GOrPART OL RKGeR) eGte 2ZTULLe) TC 4920 

CORTE 

PEN POLE RUAP I 

IDE: i 

NTFMP()) {PAPT UD kUwWP) 

KOVBNC FLUATINTE MPCiD) 


ICOL = yrit ([RowP) 

DP = X(lUBs)I - PEN + ZTULZE 

NTEMPOL) = LOINT CUP) 

IF (OP wile ved NTEMPEL) NTEMPCL) = 1 

{€ (TVAL «GT. NTEMP( LI) LVAL = NTEMP(L) 
BRANCH GN CHOSEN VARI ASLE 

CALL PRANCH 

IF CIGER sE&G. =-1) IPTYPE = oO 

FF (FCIR se 2) PPIVPE =.=] 

KETUER 

END 

SUBPULTIWe BbkKANCH 


PRANCHES UN VAR TABLE XCICUL) AS Or TERMINED EN SUDSROUTINE PENL TS 


TAPLICTT ReAL¥4 (AgCei mH UsPeR--we 2), REAL*S (3D FAY)» 

L INTEGER*4 (T#N,Q) 

TNTEGERS2 Ste KRENBASet het cy tA lt 

TNTEGER*2 TPART, LvCUMbs TVBNOeIVID,S C38ND 

JUBLCE PRECISION (4000) 

REAL Aleuv0) 

COMMONS LOCKS LZTUL Zey2TOLPV,2TCOST, 2TOLR Js ZT OLSMy, QRO ey QMA, OA Pe QE I » 

1 wEUy OBL yWA pOPLs OMT 5 2 pis QF ON» QUy NEMAX @NEMAX, OB eUCy 

Pd Wt rdrewls Or OR: eM yp WGy NI MAX 

COMMOR/SLULK2/ DEPART (OO) sREVEND, INGVAL IT Cul pLISTL I VAL,IDIR« 

1 TPPakT (led) sy INCUMB( 122) ¢IVBNDO( 500) pIViD (500), 

2 TUoNUC500) pNPIVGT, LP TYPE yR COST, IF EAS 

COMMON JsJMeDPKUD, DY gUt, OP, 8100) s Kb G0) YI 60) pV Te MPlOO) Ares 
oUMINFs TOCNAM (ize 22 2NAME( 20) »NTEMP( 200 54S TAT, 108404, IRUWPY 
TvIN,ITVGUT,TTCNT, INVERQ, TITRE RA p TEFEZ, ICGL Py NR UW NCU» NELEM, 
NeTAgWLCL EM pNLETAeNJELEM pNUE TA e JH( 50) eKINBAS(CL 22) LAC Lc) 6 
Le Ciuud)s TA C2009) g LEC 4000) ALB E122) »XUB(1 22) 


fSwUN 


ieCl LNDEAES SRANCHING VARL ABLE CHUSEN 
IDIR INUICATES SRANCHING OLRECTION CHOSEN 


AUG UGPPUSI TE VIRECTIUON TO LIST 
CEStE = ELSE £1] 
TF CICK ctwe Ld) LVBNUCLEISTL) = LUINTOXLBC{COL) + 2TOLZe) 
fr CIUTK «fw. 1) EVBNOCLISTL) = TOINT(XUB(ICOL) + Z2TOLZE) 
IVID(LISTLI = WWIR¥* (Cul 
EFOBND(LEsTt) = [VAL ! 


reV~iSt BUUNUs UN DRANCHING VARTABLE FOR FOReARD VIRECTIIUN 
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Sc Mae Soap Lg Hielit te RM cl 


os 


1703. 
1709. 
Lilo. 
L/bl. 
1712. 
17283. 
Lil‘. 
EEE 
L7LS6. 
PREC. 
PPES« 
L719. 
BT20. 
Leaks 
| Fae 
1723. 
1724. 
1725. 

1256 
1727. 
L723. 
L729. 
L739. 
bay ee 8 
Et32s 
L736 
1734. 
L?35:< 
17345. c 
LroFe EG 
1733.6 
1739. ¢ 

TA 6 c 

Tele 

T42< 

743. Le 


AOAAND 


i 

l 

1 

1 
L144. 
L456 
1745-6 
1/47. 

L743. 

1749.6 

beoFe 

Eros 

17526 ¢ 
L733 1 
1]54%. 

1 
l 
1 
1 


Oo 
QO 


71336 

15a. 

75? 

7536 

759 6 

1 16 Je 

L761. C 
1762. 10CC 
1763. 

1754. 

176556 ¢ 
1765-6 C 
1767. 

1763. 


a ey ake ee eee 


fF ClCIR eGue v1) ALO(ICUL) = UetE(K=EVBND) 
TE (FO ln ewe 1) AJOUICGL) = Voce (aevBND) 
RETURA 

=ND 

SURFOLTL ic BATRAK 


BACKTWKACKS TU SELECT A PRUMISINS (UNFATHUMED) NODE FRUM THe 
LIST UF STSReED NdUES. LAST IN-FIRST“O5T (LIF GO) SELECTIUN KUJLE 
{S EMPLUYcd. 


IMPLICIT REeAlt® (Ag ei Hy Up Py Rowe Zi yg REAL #8 (BepU aXe VI 
INTE UEK + CleNy ed 

INTEGER®S Ure KINDA det AyLEy [AGILE 

INTCGER RS [Pan ly IiCemMby LVoONDe IV ID gf Co WU 

JGUBLE PkeClsTUN c« l4uu0) 

=cAl Al2000) 

COMMIOR/oLUCK/S eTuc ZEycTUL PVs LTCUSTy 2ZTILRI » LTOLSM » GRU, QMA,UBA QF Il» 
atte VEL QA UPL e UM 1p WL pal dF QN ye QU ye NKMAX pNEMAXe UB QC 
wo rab ouls de dR» UM GG, NT MAX 


“COMMON/SLUCKE/ IPP ART(OO0)D pREVOND, INCVAL I COL ,LISTL es ITVAL SIDI, 


LPART (L122), LVCUMG(122) ¢1V3N0i 500) pIVID(5UU), 
LGsND( 500) sNPIVOT,IP TYPE pRCOST, IFEAS 


COMMON DSUMe0PKU Ds CY,0E, UP eB( O0)2 X( G0), 60) sYTEMP(00) pAgke 


IMI Nee LONAM( Le 242) ¢NAME( 20) »NTEMP(20)_MS TAT, LOBUy IROWPs 
Lying ldUuTes LIC Ty INVER dy TTRERQ LFF CZ, ICOL PyN*OWs NCULs NELEMy 
hoTAyNCEL CM pNLETAy NUELEM e NUE TAP JH( OU) pKINBAS(L 22) ,LAC 122) 6 
LECLEG2 Vy TA C2000), LEC COU) pXLS(CL22) »XIB(1L 22) 

NTEMP (3) = 0 

IF LloT [3 EMPTY, RETURN (CUMPUTATIONS COMPLETEC) 
{F (LEISTL e&@. 0) RETIN 
TF (PCPNICLEISTLI ebe&. INCVAL) GC TID 2000 


GET NEXT NUE F REM LIST 
1CGOt = IvID(iLIstTid 
TF €FCOL «tts dk GU TO 160 


NTEMP(1) = ITUINTUXLBCICuL) + ZTGLZE) 
NTEMP (2) = [vbNDUCLITSTLI 

XLBCICEL) = XVUoriCcL) #€ Ll. 

XISCP COL) = FEUATENTEMP(2)) 

Ir (KINSASCICUL) -GT. 0) GU TU 1000 
KINPAS(ICUL) = O 

NTEMO (3) = I 

1G TO luvd 


1cOl = ~1CUL 

NTEMP(L) = LOINTOXSB(CICUL) + 2TOLZE) 
NTEMP(2) = IvVGNUILISTLI 

MUECICCL) = xALBCECLLI - be 

XLA(YCCL) = FLUATONTEMP(2)) 

TF (KINBASCTLUL) «GT. 9) GU Tu 1L00U 
KINBAS(ICUL) = =1 

NTEMP(3) = 1 


[VEBGLUSTER = “EVLCCLESTL) 
TVBNOULIoTl) NTEMP(L) 
TCBND (Listed ~1L00U00 


JPDATE xX 
TF (NTEMP (3) ete UC) KETUKN 
cALL SHIF TR (CL, 3) 
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17H. 1G 90CO J= lL NCU 


L#%). TF UR 1N5A 905176000 ,8700, G0UU 
177i. BECC iH ety 
RES, 60 Ta 8fou 
LAPS. V7EC PF = XLois) 
L774. STE tk = LACIY 
LTE. KK = EAC S4ib = £ 
> L7 TS < DG 838CCO [=bLLhLekn 
ME Et. fR = ACL) 
L778. EFCC ¥CIR) = ¥tTRI = ALLI*FDE 
L?77e. 99CC CONTINUE 
1789. CALL FIRANG4) 
LRSE « CALL SHIFTR (3,2) 
17a. RETIIER 
1783. C 
L734. € NOCE Fatei Med: JPUATE VAR. SUJNOS AND BACAKTRACK AGAIN 
L785. 20C0 TCGk = ivivdtLISTr) 
L78S. PF O8EECE 2th. S) Ga TW 200 
TBF « Cc 
L783. NTEMP (LL) = ITvBND(L IST.) 
1789. TF CK EINBADSCICQLIL 2diGy2U5G,2096 
Wie ea 2010 NTEMP(3) = 2 
LTGE s DP = XULCICOL) ~ XLECICUL) 
1792. DY = FLUAT WhemP did) - AUBCTICUL) 
L793 6 fF (OP «hte UX) KENSASCICOL) = G 
L794. 2CSe XIBCTCOLY = FLUATENTSMPC LD) 
L795: < GO Tf 4J00”U 
1795. (= = 
1797, 21CcC [cOL = ~IfcuL 
1793. NTEMP (1) = IVBND(LISTL) 
L799. TE CK INDASCTUGLd) 2150221 102215C 
1300.. 2lic NTEMP (3) = 1 
PSO. JY = XLet I CLL) = FLEATCINTEMP(L)) 
1992. OP = AUBLTeUL) = XEPLICOL) 
1303. IF (O09 .LT. Yd KENBASCLCULD = <1 
1304. 215C XLRI ICCL) = FLOATCNTEMP(1)) 
L805. € 
1905. Z0CC LUSTE = LIishk = & 
L120 he GO TG Su 
ROY Cc 
1809). END 
1810. SUSPOLTIiwe wRAPUP 
TRUE. Cc 
LB EZ s Cc HUIPUTS OPTIMAL SULJTION AND CORES SPUNOING OHYECTIVE VALUE. 
L813. C 
Lal%. IMPLICIT KkcAc*¥4 (ApCsE~thy Og Py K—we i) ¢ REAL*S (Bee Xe VT) 9 
Las Ve 1 tivPcGeR*4 (1=N,Q) 
‘ LSTA. INTEGER®2Z SreKINGASeLAgdL ts IAy bt 
ldl7. ENTE GER*2 LPART, TW CUMG, TVBNO,IV 10,1 GaN0 
18l&. WUBLE PKECTSIUN t& (4009) 
= 1Ei5.. REAL Alecouu) 
4 182). IMMONZ3L OC CKR2/ DEP ART(oUdsREVOND, INCVAL ey ICGL sLISTL» LV ALy LOI ne 
ES2 hs 1 TPART¢(122) es INCUMB(i22) pL VBNDE50U) ¢LVI00500), 
t 13822. 2 TOBND(500) eNPLVUT, FP TYPE e+ RCOST, IE EAS 
bf L&23:6 COMMON DSIMsDPRUDe C¥2VEe DP 9B (U0) ee XLGU) YI 00) sYTEMP( CO) sAyce 
6 1824. H SUM Livre TONAMO Aer 2) NAME C20) eNTEMPC 201 MS TATe LOBUs [XUwr, 
‘ 1 > Wea é IVINe LT VGUT, LTONTs INVER LT KE Ry TREE Ly JCOL Py NR OW ep NCUL » NELE My 
L 1826. 1 Ne TA yNLELEM NLC TA pNUELEM gNUE TA, JH(00) sKINBASCL 223 LAL LC)» 
ri 1827.6 4 Le€ LOU'S), TA C2I0GG) gy LE( 4000) X48 (122) XR IL 62) 
sof 18236 IF (ITCNT wot. ETRExW) GO TO 20 
‘; 3246 Tr CDFEAS wtWs O} GO To 10 
> 59 


RMN ees SAS -1,.2 SI oc RRR ARs Ne eee Sc inte MR RN 


194). ARETE (uedd 


LB 3Le ! FORMAT 4¢/4® GPTEMSe INTEGER SULUTION KE Gs debge ee eNCOL S/) 
PB3%. wk} * bboadd) CIN IMB), J=beN LOL) 
Lass. 2 FORMAT (2e0T5) 
149324. WRIT (G93) LNCVAL 
z 1835. 7 FORMAT (//" MAK YodecTLVe ValLut =%, 15) 
| cigs fa RET JEN 
Yerle LC WRITE (aged LNG AL 
£739 6 & FORMAT ¢* No rhasitte SULUTIUN FuUuND alTa GAJECTIVE VALU euTely 
L427. L {i0) 
Lea). KETUBN 
2 2C ARITFE foglvvd LTCHT 
LaGs « LOU FORMAT of SEMPLLdX ITERATIUNS =% 91 dy 83 COMPUTATIONS TERMIiwATEU.*) 
1°43. IF (LFEAS sta. JP GE Ty 20 
Lbe%4%e WRITE (ox s0l) 
LY45~6 LC) FORMAT (/4/" deST INTEGER SULITICA FCUND IS'*77) 
L® 456 aR ETS (Gel) CINGDABOI), J=le,NCOL) 
}34?e RETURN 
ET4% 0 END 
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os 


TEM a 


LCSSS$S 


SAMPLE 


0121 
rg ha 4 
Biet 
Ee Eee 
LOL22 2 
ECE LZ ylig 
N23 a 
PA 2 pe | RCw2 ] 
ga On Bre | RC w23 
OL24 Eau 
11.24 Fowl 
3424 frags 
EO 25 CdJ 
ta Qt w22 
i.25 Ro wee 
Cust red 
Riwsl 


“Saft, RN eet ae BREcopen i erat cre Aan hs RP i 


t de ANLMHANL=DUUWD CULE 

4 

"DG6 Uw 
lo. RUaid 
Be Kale 
so) eae xUWl 
Gag KOale 
Give RUWL4S 
*Zue nuwt 
KL ROwied 
ae RIWLY 
"Od « RUwd 
LOe RoW L? 
Us nrUwl4 
clu. KU wh 
Lod. Kile bd 
LUV. KOWL4 
“456 KOnl 
eda nuWee 
Le stad+ 
~Te ade L 
+ Owld 
De nUnd4 
e DSi nowh 
Ce KUned2 
Fie Nad 

de Ruwl 
bs SGw22 
te 

“Lae KOWL 
Law nUads 
36 

bray ROWE. 
ace KiJw3ad 
$l. RAs 
2ue Rows 


Tea eh 


Ys saad opr Rie th. 


3 tt ee 


i a i BA 


CeL32 Rows) De KRIwsed Ls. 


SOL32 ROw33 Ge Runs te 
COU s3 ERS “Ge rhUnl Le 
£033 PCa3l ae KUw33 3 
* E033 FCa34 1. 
+, CELI4 CEJ "Je KOwl] ee 
COL34 RCw3l Le kKUWS2 le 
CCL34 kCK 44 a 
COL3S Cay "4e KJOwl 10. 
COLI35 RCW32 axe RUw3s lo. 
Cetu3s RCwS4 l4. 
COL4L CBJ “420s RUwl 2606 
COL4l PCa4l 2UUe RU Wee LOU. 
FOl4él RC Ww43 CUs ROW44 310. 
SOL42 faJ “eZe RUal lc. 
HOL4e2 RCw4l 20 ROW4) 2l. 
| COL42 ROn44 Be 
C7143 Ces “Lee RUal 3. 
COL43 RCw4l Oe nOw42 20-6 
CCL43 RCa43 te KOW4S4 Ge 
CCL44 Cad “Be kKUwl le 
CCL4&4 QC aed oe ROW42 De 
COL44 RCW44 Ge 
CCL45 CeJ +e ROwL Eee 
CCOL45 RCw4) bs RUW43 26 
CAL45 ROK44 le 
RES 
PHS1 ROwl 2936 
RHS1 Sewll 22 Mis RUWL?S 182. 
2HSL °Cwl3 258. RUWL4 2326 
HSL PCa2l 306 ROwW22 64. 
PHS] FChe3 GUe KOw2ee 27. 
RHSL &Cw2) Low ROwsd “ab. 
OHSL 80033 41. RUW3+ 25. 
RHSL QC wal LoUe ROw4d Bc. 
PHS) RCw43 vile ROW4S4 230-6 
ENUCATA 
Oe 0. Ce 0. Ue Ore Oe Je Ue QO. Ue de ory Oe Oe 
Oe Co Ce Oe Ge 
We l. le l. le Le Tee le le le. Le le le. le 1. 
l. Le le ke le 
? 
¥ 
} 
* 
a 
bd 
3 62 


*eeeeOuTPUT GENERATED BY BB ON SAMPLE PROBLEM ##4e8 


PROBLEM e 

TIME = 2-94 SECONDS: INCVAL = 414 
TENE = 3.07 SECONDS: INCVAL = 431 
TIME = 3.53 SECONDS; INCVAL = 445 
TIME = 3.56 SECONDS: INCVAL = 462 
TOTAL SOLUTION TIME = 6.65 SECONDS 


OPTIMAL INTEGER SOLUTION X(J), J=1,00-,NCOL 


462. 2% 56 2 89 70 . 415 af 4 5 9 14 @ 1394 GR 3a o05 : ‘ 
1 1 0 1 1 0 1 } 0 1 1 1 1 0 1 1 1 : 
MAX OBJECTIVE VALUE = 462 

’ 
} 
, 
’ 

4 

* 

? 

* 

4 63 
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LISTING AND SAMPLE INPUT/OUTPUT FOR COMPUTER PROGRAM DSIC 


i 
t 
| 


as 


aN 


a 


= 


c 
Cc 
( 
{ 

te 

C 
€ 
C 


OA ea 


an 


Rea 


eC 


LOI I CL TE ET ES TEP TRS GT TUSTIN Eee Sd 7 


DECCMPOSITION RCUTINE, DOSLC 
CECOMPOSLTIGN AND SOLUTION OF PURE-INTEGER LINEAK PROGRAMS 
(WITH GENERAL INTEGER VARIAGLES) WITH BLOCK ANGULAR CONSTRAINT 
MATRICES. 

ee eeSTNCLE LINKING CONSTRAINT CASE ## #4 eke 
GARY Ae KUCHMAN (OPEKATIGNS RESEARCHd, SEPT. L9OTO, MOD i 


IMPLICIT KEAL*®4 {AyCeE—H,O,P pRowWe Z) 9 REAL*B (Bsr Xe de 
1 INTEGER*4 (I=N,Q) 
INTEGER*®Z JHeKINGASslLAgLEglAglE 
INTEGER#2 LPART, INCUMByILVBNDes I VID, 1CBND 
ENTEGER*2 IZSTAX IBID, I BENG, I 26ND 
INTEGER*®2 LAS,LAS 
DOUBLE PRECISION E(1000) 
DIMENSION A500) ,INCO1L0) sAVLLO) »NTSGL 110) 
COMMON/BLOCK/S ZT CL ZEs ZTULPV, ZTCCST, ZTOLRS ey LZTOLSMy QRO»y QMA, QBA QF I; 


L WEOs OBL yWAy QPL QML Od QT se OF» ON» QUy NRMAX pNEMAX s QBy UC e 
2 WE »QheWlLeQOeQR eM »QGyNTMAX 
COMMON/BLUCK2/ DFP ART (Le 2d ,REVBNDe EL NCVALyICOLyLISTL» LT VAL sIDIR, 
i NPIVOT,LPTYPE,RCOST, IFEAS, I PART(L22),ENCUMBI1L22),5 
2 1VBND(500),IV100500) -LOBND( 500) 


COMMON/BLOCK3/ RLAPDA(S0 410), 2NAUT(10) pZJBAR(10) sNSUBSy IZING, 
LIZBAR,LOUMy L8LLy NSF I Xy SFI ASM IB SFL AL LO) eNSGLC LO) pNLAMDACLOIN, 
2KSEGC LO), TESTAR( 200,10), 18U8(10),18L6(10),18P(51,10), 

SZTBUSEL (200,40) pL ZS TAR(200¢10) pL EL0( 200)» 1 BBND(200),128ND(200) 

COMFOR/BLUCK4S/ XLBS450,10) ¢XUBS150, 10) e AMATRS( 1000) +RHS( 20010) 5 

LINROWS (LU) pNCOLSC1LO),UFIRSTCLL) s LAS( 1000) ,LAS(50,10) 

COMMON EvXLB( Leddy XUBLL22) 48160), X60) 41660) »YTEMP (60) ,OSUM, OPRUDs 
DY »DtyOPy As ICNAM( 12252) — NAME (ZO) ,NTEMP( 20) 9 SIMINF eMSTAT, 
LObdpLROWP, IVINy LVOUT,ZITCNT, INVFRQ,TTRERQ,ITSINV, IFFEZ, 
JCOLPeNROW, NCOL»NELEM, NE TA sNLELEMeNLE TAsNUELEM »NUETA, 
TECLOOO)s LA (500) ,LE( 252) LA 122) pKINBAS(L 2249 SHOU) 


PUNE 


MAIN PROGRAM 
COCRDINATES APPLICATION UF THE VARIOUS STEPS OF THE DECGMPOSI- 
TICN ALGORITHM. 


INITIALIZE PARAMETERS 
CALL FCLOCK(iTOT) 
READ (5,1,END=9999) NSUBSsIb,IP ARM, IZINC 
FORMAT (4110) 
OC 20 J=irzl22 
ICNAM(5,1) = 0 


ICNAMidy2) = 0 
ICBJ = i 
ITRFRQ = 99999 
EBLE = 6 
IPAR = 0 
NJFIX = 0 
JEEXS? = 0 
JFIRST(i) = 1 
TALC = 0. 
TSUBS = 0. 
IFIRST = VU 
NALCO = 0 

PHASE 1 
DO 100 J#lLyNSUBS 
AV(J) = Us 
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ek 


as 


aan 


AaOaAaAa 


NTSOL(J) = O 

NSOL(J) = OQ 

JFIX(J) = 0 
INPLT OATA FOR SUBPROBLEM J 

CALL INPUT(J) 
SOLVE SUBPROBLEM J AS LPy PARAMETRICALLY IN THE RI GHT-HAND 
SITE FOR THe SINGLE LINKING CONSTRAINT 

CALL PHASE1(J) 

WRITE (6,8) 

FORMAT (*1 START NEW PROBLEM® ) 
OUTPUT SLOPES ANO (ALL—INTEGER) BREAKPOINTS DEFINING THE 
SEGMENTS OF THE (MODIFIED) CONCAVE AND PIECEWISE LINEAR 
(PARAMETKIC) OBJECTIVE FUNCTIONS FOR THE SUBPROBLEMS 

OO 20C J=1,NSUBS 

LAST = NLAMDACLY) + L 

WRITE (692) Je (TBP (Kod), K=1,L AST) 

FORMAT (//* IBPi Ks *9132*) =*,2015/2515/515) 

LAST = LAST = 1 

WRITE (693) Je (RLAMDA(K,J)9 K=1,LAST) 

FORMAT (* RLAMDA(Ks',139°) =" 91 9F 60 2/20F602/11F6-2) 

WRITE (694) Je ZNAUTIJ) 

FORMAT (* ZNAUT(', 139") =*eF10.4) 

WRITE (5,5) 

FORMAT (///) 

CALL FCLOCK(JTIME, ITOT) 

TPHL = JTIME/100~ 


GO TG 2100 
PHASE 2 
BACKTRACK TC LAST PROMISING NODE IN ALLOCATION-VARIABLES SEARCH 
CALL. BEKTRK 
[PAR = 0 


IF LIST GF STORED NODES IS EMPTY, COMPUTATIONS ARE COMPLETED 
IF (T@tL .~EQ. 0) GCL TO 9000 
NALO = NALCO + 1 
CALL PCLOCK(JTIME, ITOT) 
SOLVE MASTER PROBLEM TO OBTAIN PROMISING NEW ALLOCATION OF 
LINKING RESOURCE TO SUBPROBLEMS 
CALL ALOCTE(IPAR,IRHS) 
CALL PCLUCK(JTIMEL,{TOT) 
TALG = TALO + (JTIMEL — JTIME)/100. 
[PAR = 1 
TEST FOR FATHOMING OF CURRENT NOOE 
[F (IACVAL -LE~ IZINC) GO TO 2000 
IZBAR = INCVAL 
IF (IRHS «GT. 0) LZ2BAR = -10000 
CHECK IF ANY SUBPROBLEM HAS PREVIOUSLY BEEN SOLVED UNDER ITS 
CURRENT ALLOCATION 
CALL CCMCHK(J,K) 
IF (ICOM .EQ. 0) GG TO 3000 
LAST = NSOL(J) + 1 
IRHS = IBSTAR(LAST oJ) = IBUSEDI Ks J) 
BRANCH ON ALLOCATION VARIABLE IN SUBPROBLEM J 
CALL CPBRAN(J,K) 
IF (MSTAT 2tQ. 0) GO TO 2000 
FIX ALLOCATION TO SJBPROBLEM J AT LEVEL K 
JFIX(J) = K 
NJFIX = NJFIX # 1 
JFIXSH = JFIXSM + IdSTAR(KsJ) 
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Se TVS TI ee, eres — 


as 


Aaa 


a 


a“ 


24C0 


S3 


250 


33CC 


IF (NJFIA LT. NSUbS) GU TO 2100 
4.4 SUBS FIXED: COMPARE SGLUTION WITH INCUMBENT 
IF {JEEXSM skE. ITZINC) GU TO 2500 
DO 26CC 1=1,NSUBS 
INC(L) = JFIKCT) 
1ZINC = JEEXSM 
CALL PCLUCKEIUTIME, LTGT) 
TceTt = JTIME/LCO. 
WRITE (6,93) TOPTs: IZINC 
FORMAT (© TIME =",F7.2e' SECONDS: YZINC =*, Tid) 
IF CIEIRST 260. 3) GU TO 2500 
TEIRST = TaOPT 
TETRST = I 
TFVAL = IT2NC 
JFIX€U) = 6 
JFUXSM = JFIXSM =~ [F2STAR(KsJ) 
NJF IX NSFIX =~ 1 
GE 10 2000 


SELECT NEXT SUBPROBLEM TO SOLVE 

AVEAX = =1 0000. 

j= 9 
FIRST TRY TO SELECT AN UNFIXEO SUBPROBLEM FOR WHICH THE ALLUC A= 
TICN VARTABLE ITS NOT ON AN UPR ANCH 

NO 3100 L=1eNSUBS 

fF (JFIX{T) «NE~ 0) GO TO 3100 

IF (AVMAX .GE. AVET)) GO TO 3100 

Jal 

AVMBAX = AVEL) 

CONTINUE 

LF (J «Gte 0} GO TG 3200 
ALLECATION VARIABLE FOR EACH UNF IXED SUBPROBLEM CURRENTLY ON AN 
UP-BRANCHs SELECT UNFIXEO SUBPROBLEM IN ACCORUANCE WLTH 
DECISION RULE SPECIFIED BY PARAMETER TPARM ALONE 

DO 3150 1=L-NSUBS 

IF (JFIX(T) «GT. 0) GO TO 3150 

1F tAVPAX .Gk. Avi td) GO TO 3150 

J=z=i 

AVMAX = AV) 

CONT{AVE 

NTSOL (J) = NTSOL (J) + Ll 

CALL POCLOCKIJTIAE, ITUT) 
LO40 PROBLEM LATA FOR SUBPROBLEM J 

CALL LODATAV) 

ITSiNS = 99999 

FFEAS = 0. 
GET GPTIMAL LP= SOLUTION TU SUBPRCBLEM J 

CALL NORMAL 
TEST LF SUBPROBLEM J IS LP=FEASIBLE 

{F (MSTAT 2EQe aN} GO FO 3300 
SUPPRUBLEM J CP=FEAST BCE; GET INITIAL LOWER BOUND ESTIMATE ON 
MAX. IP=CBJe VALe 

CALL GETLBUII2 

INT TSC = INCUMB(L) 
USE BRANCHAND= 8BOUND ROUTINE TO COMPUTE OPT. IP=SOLUTION TO 
SUPPROBLEM J 

CALL EANDBLINITBD) 

CALL PCLUCKCJTIMEL » LTOT) 

TIME = (JTIMel = JTIMEI/ 100. 

TSUBS = TSUBS * TIME 
UPCATE SUBPKUBSLEM SELECTION RULE INFORMATION FOR SUBPROBLEM Je 
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183. 
18%. 
185.6 
i 86. 
187. 
188. 
189. 
199. 


ah 


192. 
193. 
194. 
195. 
196. 
197. 
1986 
199. 
200. 
201. 
202. 
203. 
204. 
205. 
206. 
207. 
208. 
209.6 
210. 
2ll.e 
212. 
213. 
214. 
215. 
216. 
217. 
218. 
2196 
2206 
221. 
222. 
223-6 
224.6 
225. 
226.6 
22T. 
t 22Ae 
| 229. 
230. 
23le 
2326 
| 233. 
234. 
235.6 
2366 
237. 
238-6 
2396 


FRR 


241. 
242-6 
243. 


C 


ano 


On 


SOCCc 


$2 


S 


91 


9999 


AAA 


aa 


IN ACCOKRCANCE WITH VALUE SPECIFIED FOR IPARM 
GO TC (531044532045 33043%00),1PAKM 
AVG JD =CCNE SOLAS) 2 DFAVI GD FEL SBAR( SD-ENCVAL DI /NTSOLO) 
GO TC 3460 
AV(J) = CONTSUL(C J) -LIRAVOS) & ENCUMB(2))/NTSOL(S) 
GO TO 3400 
AV( 3) = CENTSOLOCJI-LI*AV OI) = TIMEN/NTSOL( U0 
SAVE ALLOCATIUN AND SULUTLON INFORMATION FOR SUBPROBLEM J 
CALL SAVER( J) 
TRHS = [NCUMB( 2) 
K = NTEMP( 2) 
OUTPUT SOLUTION [NFORMATION FCR SUBPROBLEM J 
WRITE (646) Joke CE NCUMBUKK)», KK=1,NCOL) 
FORMAT (* SUB*,I25* SOL%sI3,*s *%y2GI5a 
TEST 16 ALL SUBFROBLEMS HAVE BEEN SOLVED; IF SO, NO SRANCHING 
NECESSAKY 
IF «(NJFIX = NSUBS + i) 2200,230C,9959 


COMPUTATIONS COMPLETEDS OUTPUT OPTIMAL SOLUTION INFORMATION 
CALL CUTSOL{INC) 
CALL FCLUCKIJT IME, TOT) 
TTCT = JTIME/100. 
CUTPUT AL. GORI TH#IC PERFORMANCE INFORMATION 
WRITE (6,7) TYOT 
FORMAT (/* TCTAt SCLUTION TIME =" eF 7-29" SECCNDS') 
WRITE (6,92) TPHL»NALUsTALO,(NTSOL( J)» J=1sNSUBS) 


FORMAT (* TIME IN PHASEL =*,FGe2e* SECONDS'/* MASTER PROBLEM SOL VE 
1D", Lic,’ TIMES: TOTAL TIME SOLVING MASTER PROBLEM =* »F6.2—" SECON 


20S'/* NUMBER OF TIMES EACH SUBPROBLEM SOLVED =",18X,1015) 
WRITE (659) (NSOL( Jd, J=1l_eNSUBSI) 


FORMAT (* NUMBER OF DISTINCT SOLUTICNS OBTAINED IN EACH SUBPROBL EM 


1 =*,1C15) 

WRITE (6/91) TSU6S 

FORMAT (* TCTAL TIME SOLVING SUBPROBLEMS ="*yF6e2,5 
1" SECCNDS*) 

GO TO 10 

stop 

ENO 

BLOCK DATA 


INITIALIZES GLUBAL PROGRAM CONSTANTS 


SUBRUUTINE ADAPTED FROM LINEAR PROGRAMMING CODE LPM=1» WRITTEN 


BY JeaAe TOMLIN (OPERATIONS RESEARCH, STANFORD UNIVERSITY) 


IMPLICIT KEAL*4 (Ar CyE-H,OePeR—meZ) » REAL*B (BaD eXeV) eo 
1 INTEGER*4 (IN, Q) 

COMMON/BLOCK/ ZTOLZEsZTOLPV, ZTCGST, ZTOLRI» ZTCLSM, QROs QMA, OBA LQFI > 
1 
2 WE ph she QO eGRs UM yQGy AT MAX 
REAL 2TOLZE/1~.E-5/ pLTOLPV/1L.E—4/ 2 ZTCOST/ 1 E=3/ eZTOLRU/ Le E—4/ 5 
1 ZTGOLSM/LLE-LO/ 

INTEGER*®4 NRMAX/604sNTMAX/250/ gNEMAX/ 10007 

INTEGER*4 QKO/*ROW '/,QMA/*MATR'/ ¢QBA/*BASI"/, QF I/*FIRS'/e 
LQEC/* ECF */,UBL/* */,QAstAa "7 eCPL/®° & "SeQME/' = "Sy 
2Qéi/* 2 *%#eQ17*I "/,QF/ °F ©"/7_,QN/*N */,QU/*U "/s 
3Q8/*B *7,QC/ °C "/,QE/°E */,QH/°H */,QUZ°L “Sy 
4Q0/°9 "7 QK/'K "/QM/'°M "/,QG/'G «7 

END 

SUBROLTINE INPUT(T FPROS) 


INPUTS PROBLEM CATA 


ea en te “er 


GED, CBL 4 QA QPL ye QMIe Glo Q1 5 QF e QN» QU, NRMAX pNEMAX, QBsQCy 


] 
| 
i 
1 
] 
] 


as 


aw. C SUER TINE ADAPTED FROM LINEAR PROGRAMMING CODE LPM-ly we ITTEN 
Se ( JeAe TUMLIN (URPCRATIONS KESEARCH, STANFORD UNIVERSITY) 
Da?. jt PARAMETER Sf BE EHRs 
Se YK OB LGENTIFLCATION NUMBER UF SUBPROBLEM BEING 
ie AA C INPUF JSER MUST INPUT SJBPRCOCBLERS IN SEQUENCE 1,24... 9NSUBS) 
i‘ CARRS AK CEREUS EEEG EKO SEEKS CHO TKERERKETSD 
Si Ct 
$2 6 IMPLICIT ¢ L¥% {Ae pEettsCyPeRobsy 2) y REALTS (Bebo Xs¥)5 
53.6 Lt ENTEGER#4 Ci-N,Q) 
254 INTEGER* $ SAS yt Asstt, iA, lt 
So. INTEGER *2 >i 8@fU,158N0,12Z8N0 
16. GE < AS,iLAS 
Ps LE PRETISTON ECLQ00) ,ASEMPL ,ATERP 2 
258 E 6(500 
ee f 
6. COMMON /BLUCE LEOL ZE, 2TULP¥, LICOST, LTGLRI, ZTOL SMe QRUy OMA, QKAsQFI 
61. i BEUy WB yp WA GPL e CMI, OZ Ul eh y UN ey QUs NRMAZ pNEMAXK, QB eQCe 
262 « Gr Qh UL UU rd CM OG ey NT MAX 
263.6 r 
L646 TOMMOR/ BLOCKS RLAMVA(9O¢10), 2NAUTO LO) »ZJBAR (10) pNSUBS IZING, 
r¢ Li ZBAR . TMs LBL Le NSE LX, JF LRSM 16 JET XC LO} pNSOLC LO) »DNLAMDA(10O) 
266. 2RSEGULC), EBSTARC LOU, iLO) sp TBUBL1O), LHLEC1L0),1BPU51 iG), 
267. SYBUSEC C200 510) pI 25 TAR( 200910), 1 BI 01200) 518 BND( 200) sIZ38ND(200) 
268 DAMON OL OCK4S/ KLSS (50g 1 Od + AJB 9050, 10) eAMATRSC1000),RHS(20,10), 
269 INROWS ELUd eNCUL SE LUD, JFiRoTiLid »s TASC L000) »LAS{(50, 10) 
2706 COMMON Es XLBi hdc ds AUSL Lee) 95100) 9X0 60) ¢Y1(00) se ¥YTEMP (60) «DSUM, DPRUD, 
ETE 1 JV eberUPe As IONAML 12252) ¢ KAMEL2Z0) sNTEMP( 29) 5 SUMINE pMSTAT 
T2 2 [UBS ,IRUWPs Ty iNe s VOUT e LT CNT, INVER OG, ITRERQSTTSINV, LFFEZs 
273. 3 LP eNROws NCUL YZ NELEM,NETA sNLELEM,NLETANUELEM pNUETA, 
21% = 4 FEL LUGO)» LA (SOG) gp LEC 292) pL AL122) +KINBAS(L22)-JSH(60) 
16.8 10 10 1=1 7,65 
277. ic BCT) We 
2Tb. DO <0 J=irvilz2 
Z7S. 2c KINBAS! 
a Ne&Ow 
efle ITCNT = 
82. tcSiese€ 
2R2. ICS$2=C 
~ READ (5,70GU0) INPRI 
° 7CCC FORMAT (514 
OSe FPROP = Li PRGe 
cbr. {F CY FPROB .tQ- O) RETURN 
cBbe. C 
rB9 6 5 READLE LOL) Kl Kee K3eK4, (NAMECL I Le by @) eAT EMPL SN AME( 5) pNAME(O)e 
250. YATEMPZ 
2916 1C) FORMATAGAL ZAG ye he EAH 2K Fb la 4 ye BX e2AhG 2K Flees) 
2s IFCKL .EU. CEI GO 10 6900 
2 e IF (KL cEwe 48h) GO Fj vial 
946 IFQKL cE. GNI GO TU LOO 
2956 IFOCKL eEGe GR eAND. Ke oEQe QO) L=l 
S66 TECK. EQe OR «ANDO. K2 «Ee YG) GC TO 150 
2976 TFCKL .EQ. GO) L=2 
IFCKi «EU. QC} GO TE 150 
TF(KL «Ede O8 «AND. K2 -EQ- QA) L=3 
[F(KL «EW. GB eANU. K2 stQe GA GC TO L590 
IFCKL o£Ge GR «AND. K2 «EUs GH) L24 
302. TFEKL sEWe CR eANUL K2 2FQe QI GO TG 150 
303+ SC GO TO210s 320541 Ce SOG) gt 
046 1CO NTEMP CLI = NAMEC 3) 
69 
a i it ia a i cD i a i Et -" —s . = —~ ot 
2) i 3 


abe asi tat as 


as 


oe 


é 
A 


35066 1s¢ 


we 
oO 
= 
. 

on) 


tw iw 
—e 
oes 
- 4 

og Mies Jat i | 


aw 
N 
- 
. 

nN 
nm 
Qo 


3246 23C¢ 


ate 24C 


331. 2sC 
232. 2€C 


w 

iS) 

) 

. 
AAO 


349. 324 


we 
ow 
N 
. 
AAD 


Wu 
~ 
w 
© 
. 


NTEMPL2) NAME(4) 
CONTINUE 
GO TO 5 


NROW=NROW FL 


NCCL=ARCW 
TCRAM(NROW 1) = NAMEGL) 
ICNAMINRUWe ed) = NAMEC2Z) 


TEST KOhW TYPE 


PFCK2 ER. QL UR. K3Z0EQ-QL)I GO TO 220 
LF(K2.Eu.-Qe ORs. KJ-EUVQNE) GG TO 230 
LFOK2Z.E6.064 OR. K5eEQ0.NG) GO TO 240 
LFCK2 oEWeON eUkKe KSecueuN) GO TO 250 
GO TG 230 

ALBS(NFCW) = Ge 

XLBINKOn! = Le E4 

60 TC 25uU 

XLBINRCwW) = Oe 

XUB(NBECW) = Oe 


GO Te 250 
XLB(NROnd = Oe 
XUBCNECH) = L-E4 


ACNROW) = =1Le 


GO TO 260 

A(NROW) = Le 
TAQNRCwH) = NKOW 
LA(NRCw) = NROW 
JHI(NRCK) = NROW 
KINGSASCINROGW) = NROW 
NELEM=NRUW 

Gc To § 


MATRIA ELEMENTS 


J 3 


on 


K 4 

1F (DABS(ATEMP 1) .LE. 2TULZE) GO TC 32) 
GO TO 32% 

J=5 

K=6 

ATEMPL=ATEMP2 

GG TO 33u 

CCONTIAUE 

IF (NAME(L) 2EQ. TCSL «ANDe NAME(2) 2 EQ. 


TEST FUK SPLIT VECTOR 


OO 325 [ = ls»NCOL 

IF (NAME(L) .NEs ITCNAM( 1,12} GC TO 325 
TF (KAME(2) NE} TCNAMiT,2)) GC TO 325 
WRITE (6,6250) NAME (1) yNAMEC2) 
FORMATI,L4HOSPLIT VECTOR ,2A4) 

CONTINUE 

NCOL = NCOL + L 

TCS1L = NAME(L) 

{CS2 = NAME(2) 

TCRAM(NCUL 21) = ICSIL 

TCRAM(NCUL o2) = ICS2 

LACNCCL) = NELEM + i 
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GO TO 330 


| 
| 
| 


| 
| 


167. C TEST FOR Pule MATCH 
3686 C 
3696 320 00 34C I i »NKOW 
vo 370. LF (NAME(S) «NEw [CNAML I, LE eURe NAMECK) TCNAM( 1423160 TG 340 
" a7Le RELER = NELEM # 1 
3726 TA(NELEM) = L 
373- ACNELEM) = ATEMPL 
374. LACNCCLE+L I =NELENFL 
3756 3395 FFCK o6T. 5) GD Fe > 
3766 LF(CABSCATEMP2) st E. ZTOLZE) GC TO 5 
aT? f= 5 
378. « = 6 
379. ATEMPL = ATEMPe 
380. GO 1G 33u 
38L. 340 CONSIAUE 
382. WRETE(6,5300) NAME C5) eNAME(K) ¢NAMEC 1) pNAME(2) 
383. R3CO FORMAT(LEHONO MATCH FOR KGW 12A4,j)0rAT COLUMN 4244) 
284. stop 
385. i¢ 
366. C BASIS CARDS 
367. C 
388. 41C DO 420 I = LaNCUOL 
3896 LFONAMECL) eNEe ECNAM( 1,1) «GRe NAMEC2) ICNAM(142)) GO TO 420 
390. IBVEC = I 
391. GG TC 425 
392. 42C€ CONTINUE 
393.6 WRITE 46,8400) NAME (1) yNAMEG2) 
394. ASCC FORMATigLHONU MATCH FOR VECTOR »2A4) 
395. GO TC 5 
396. 4z5 DO 43C L = LyNROW 
397. TF (NAME( 3) -NE®ICNAM¢C IL-1) -0R.NAME(4).NE.LTCNAM(1,2)) GO TO 430 
398. TBROW=I 
399. GO TO 440 
400. 43C CCNTINUE 
401. wRETE(6,8300) NAME (3),NANE(4) 
402. GO To 5 
404.6 44C SHETRRCW) = IBVEC 
494. KINBAS(IBROGW) = ¢ 
405. KINBAS(IBVEC) = [BROW 
4G66 GO TO 
407- le 
408. [5 PHS 
499.6 Cc 
410.6 5cO J = 3 
Sls K = 4 
412-6 iF (OABS(ATEMP1) .- LE. ZTOLZE} 6O TCO 521 
413. GO TO 52% 
4146 52 JS 
415. K=6 
416. ATEMPL=ATEMP2 
+ 4iTe 5G TO 530 
i Gif. 524 CONTIALE 
419.4 LF {NAMELL) .EQ. TCSL «AND. NAMEL2) 2 EQ. Ge TO 530 
420. (2 
% 421. c TEST FGR SPLIT VECTOR 
a 422. C 
423.6 00 $25 1 = 1l,yNCUi 
sp 424. IF (NAMECL) .NE. LCNAMGT,i22 GC TO 525 
> 4256 TF (HAMEL 2) BNE. TCNAMEI 2)? GG Td 525 
PP 426. WRITE (65,5250) NAME CLD,NAME(2) 
: 1 
é 
i 
% 
— — 


- EE eT TT TTT EE SO SAG LEN TE RTL IEL T PIE IT TE — 


Ne Oe te 


2T. 
425. 
429. 
430.4 
43L. 
432- 
434. 
434. 
435. 
436. 
437. 
438. 
439. 
4490. 
441. 
442. 
4436 
444. 
445.4 
446. 
447. 
443. 
449. 
450. 
451. 
452. 
453.4 
454. 
455-6 
456. 
457. 
458. 
459. 
460. 
461. 
462. 
4636 
464. 
465. 
466. 
467. 
468. 
; 4696 
: 479.6 
: 411. 
472. 
473.4 
414. 
475. 
; 416. 
{ 41T. 
: m 473. 
} 


4796 
G 480. 
we) 481. 
“4 482. 
‘ i 483. 
io 484. 
| ry 485. 
é 486. 
487. 


an) 


an 


a 


651 


101C 


1c<z0 


> CONTINUE 
{CSl = NAME(L) 
ICS2 = NAME(2) 


TEST FUR KOW MATCH 


OG 54C I = lyNROW 

{F(NAME( JS) 2NE~* ICNAM( 1,1) «OR. NAME(K) .NEw ICNAM(1,2))GO TO 540 
BUT) = ATEMPL 

IFCK .GTe 5) GOTO S5 

(F(CAESCATEMPc) whee ZTULZEI GC TQ 5 

J 2 § 


ATEMP1 = ATEMP2 
GO TO 530 


> CONTIAGE 


WRITE (6,6300} NAME (J) ,NAMELK) 
sToPe 


END CF INPUT 


NSCCL = NCOL — NROW 
K = NROW + | 
{INPUT LOWER AND UPPER BOUNDS ON CECISION VARIABLES FUR SUBPROB= 
LE INPRGS 
READ (5,65C) (XL Bil), J=KyNCOL) 
READ (5,690) (XUBl udy J=KyNCOL) 
FORMAT (15F5.0) 
XLE(ICBJ) = -10000. 
XUB(I[CBud = 10000- 
INPUT LCweR AND UPPER BOUNDS ON ALLOCATION VARIABLE FOR SUB- 
PRCELEM INPROG 
READ (5,651) Ibtes( INPROS),IBUBLINPRCB) 
FORMAT (8110) 
TEMP = FLCAT(IBLB( INPROB)) 
8(2) = OBLE(TEMP) 
INVFRC = NROW 
STOKE A, TA gl AgXUBeXL3e8»NCOL»NROW FOR SUBPROBLEM INPROB 
LL = JFIKSTCINPROBI) - 1 
OO 101C [=lyNEcEM 
LLPT «= ht + fF 
AMATRS(LLPI) = ALT) 
{AS(LLPI) = LAGI) 
DO 102C K=1l_yNCOL 
LAS(Ky,INPRCB) = LACK) 
XLBS(KeINPROB) XLBUK) 
XUBS( Ke INPRUBI XUB(K) 
LL = ARROW — 2 
OO 1032C I[=leit 
RHS(1,INPROB) 
NCCLS CINPRKCB) NCCL 
NROWS CINPROG) NR CW 
JEIRSTCINPROBtL) = JFIRSTCINPROB) + NELEM 


SNGL(B(1+2)) 


Ho ow ot 


NELEM = NELEM — NRCw 

RELEM = NELEM 

ROENS = KELEM/(NKOW*NSCUL) 
RETURN 

END 


SUBROUTINE FIRAN(IPAR) 
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485-6 ( PERFURMS FURWARD TRANSFURMATION ON COLUMN STGKED IN VECTOR ¥ 


489. Cee Oe REO SCRIPT LUN UF PAKAME TEKS #48 ae eke 
499- C TPAR = PARAMETER LNDICATING BY WHICH ETA-VECTORS THE MATRIX 
491-6 C COLUMN LS TC BE UPLATED 
* 4G2~ CRE RERERR EH HARK ERE EAE OK ORK TKR CHEK OK OE EE 
| 493. [3 SUBROUTINE ADAP TEO FROM LINEAR PROGRAMMING CODE LPM=-l, WKITTEN 
494. C BY JeAw TUMLIN (OPERATIONS KESEARCH, STANFORD UNIVERSITY) 
495. € 
496.4 IMPLICIT REAL*4 iA vCsE~rty Ue? eR—w, 2) » REAL*®S (Be eXeVi eo 
497. 1 INTEGER*4 (1-N,Q) 
49Re INTEGER*2Z JHyhINGASPCA,LE, LA lt 
| 499. OOUBLE PRECISLUN €(1000) 
600. REAL A(5u0) 
501. c 
£02. COMMOR/BLUCKS LZTOL 2es 2ZTULE Vs ZTCOST, ZTOLR J ZTOL SM, QROe QMAy QHA SUFI 
£03. 1 wh Uy OGL» QA yePi sg WML e CZ eGo QF sy UN: QU NRMAX pNEMAKe OB, QCy i 
£04. 2 we pGh Qh» Q04 QR er QM »QGe NT MAX 4 
505 € 
506-6 COMMON EskKL BL Led), XUH(1L2Z2'40100)4X(60)¢V(60) sYTEMP (60) 5USUMy OPRUD, 
507. L DY + CEeOPy Ay ILCNAM( 12202) 9 NAME (20) sNTEMP( 20) 9SUMINE pMSTAT, 
$08. 2 1G6B8s,IRCW,TVIN, LVOUT,ITCNT, INVFRQ,ITRERQsTTSINV,ITFFE Ls 
509. 3 JCULP, ROW, NCOL, NECEMe NETA,NLELEM,NLETAsNUELEMyNUETA, 
510. 4 Pe € Luddy fA L500) -L E252) LAL 122), KINBAS(122),JH(60) 
Slle C 
Si2. GO TO €1L00ygi10)_, LPAR 
Si3- 1cC NFE = i 
£14. NLE = NETA 
S15. GG YO 200 
516.6 LIC NFE = NLETA + i 
Sit. NLE = NETA 
518. 2CC IF {(NFE euTe NLE) GO TO 9000 
5196 O00 10CC ik = NFEsNLE 
520. LL = LELIK) 
S216 KK = CECIK+L) = ft 
5226 (PIV = EFECLL) 
$236 Oy = YCiPiv) 
524. OY = CY/ECLL) 
525. YCIPIV) = OY 
5266 IF (KK «LE. LL) GO TO 1000 
S21 te = te + f 
5286 00 S0C J = its KK 
5296 IR = LEtu) 
530s Y(IR) = YCIRI = EC J) * OY 
Sails 5CO CONTINUE 
i 532.6 1OCC CONTINUE 
S336 90CC CONTINUE 
534.6 RETURA 
535. END 
536. SUBROLTINE BTRAN 
Safes Cc 
539. C PERFORMS BACKWARD TRANSFURMATILON ON COLUMN STORED IN VECTOR Y 
% 539.6 C SUBROUTINE AVAPTED FROM LINEAR PROGRAMMING CODE LPM—ie WRITTEN 
549 [x BY J.A. TOMLIN (OPERATIONS RESEARCH, STANFORD UNIVERSITY) 
541. C 
542. IMPLICIT REAL*4 (Ae yE—He Oe Py Rows Zi} 5 REAL®8 (ByDeXeVie 
: 543. 1 INTEGER*4 (I=N,Q) 
‘ 544. INTEGER*®2 JHeKINBASLAsLEyTAGIE 
545. OOUBLE PRECISION E1000) 
546. REAL AL50Q) 
4 547. ¢ 
” 548. COMMOR/BLUCK/S @TOL LEeLTOLP Vs ZICGST, ZTOLRI» ZTGLSM » QROe QMAs QBA QF» 
i 73 


af 


ae 


ANAAAaAD 


1 


L 


fwnre 


AAT Se eta tlc 


GEO, OBL p QA QPL s QM 1, Q2 pQ1 ep QF e UN» QUy NRMAX pNEMAXs QB e UL 
QE eQH eQlh sy QO, QR ey QM 2 QGy NT MAX 


COMMON E,XBU2 22), XUBI122) 58160) 9 X60), (60) pe YTEMP(603,DSUM, DPRUD, 
UY s0E,0P, A, ICNAM( L2202) pNAME (20) »NTEMP( 20 ep SUMENEF pMST AT, 
[UBJe I ROWP, LIVIN» LVOUTS LTCNT, INVFRQsITRERQITSINV,IFFEL, 
JCOLP »NROW, NCOL » NELEM, NETA,NLELEMe NLE TAy,NUELEM pNUETA, 
LET 1000), 1A0500) pLEC 292) pL AC 122) eKINBAS(122), J5H(60) 


IF (NETA «LE. C) GC TO 9000 
0G LOCO i = lyNETA 
IK = RETA = I #1 
tL = LEIA) 
= LECIK+l) - 1 
TPIv = Tediecd 
oP = ELL) 
OY = YCIPiv) 
OSUM = U. 
IF (KK eles tL) GO TO 600 
tl = tt +1 
00 50C J = LiykK 
IR = Lé(v) 
OE = €44) 
OPROL = VE * Y(IR) 
CSUM = USUM + OPROCG 
CCNTINUE 


YCLPL\v) = (OY = USUM) / OP 
CONTINUE 

RETURN 

END 

SUBROLTINE FORMC 


FORMS COST VECTCR FOR CURRENT PRIMAL=SIMPLEX ITERATION; USED IN 
CONJUNCTION WITH SUBROUTINE PRICE 

SUBROUTINE ADAPTED FROM LINEAR PRUGRAMMING CODE LPM=1l> wRITTEN 
BY JeAs TOMLIN (OPERATIONS KESEARCH, STANFORD UNIVERSITY) 


IMPLICIT REAL*4 (AeCeEmHeOsPeRmmel) ¢ REAL*B (Bx eXrV) 5 
INTEGER*4 (I-N,Q) 

INTEGER®2 JHeKINGAS ei ApLEy FAG IE 

OOUBLE PKECISION E1000) 

REAL 4(500) 


COMMON/BLOCK/ ZTOL ZE,ZTOLPVeZTCOST, ZTOLRI» ZTOLSMs QROs QMA, QBA yQFi 
QED, CBL » QA QPL» QM, CZ 2QI yp QF» QNeQUs NRMAX pNEMAX, QB, QCe 
UE Qh e Ql sQ0,QRr QM eQGy NTMAX 


COMMCN Ey XLB¢122)  XUBI122) ,B160)5X(60),Y(60) » YTEMP(60) »O0SUM, DPROD, 


DY »DEsDPe Ay ICNAM( 12292) » NAME (20) pNTEMP( 20) 9 SUMINF » MSTAT, 
LOB» AROWP, IVIN, LT VGUT PATCNT, INVFRQ,TTRFERQ SETSINV, LFFEZ, 
JCOLP »NROW, NCOL» NELEM, NE TAgNLELEMeNLETAyNUELEMyNUETA, 
TE@ L000), [A (500) pLE( 252) pL AC 122) pKINBAS(122)-JH(00) 

MSTAT = QI 

IFFEZ = 0 

SUMINF = QO. 


Y(IOBJ) = ©. 

DO 30 1=1,NROW 

IF (1 «EQ. Udy) GC TO 30 
[COL = JHiT) 
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ANAANA 


6434. 1 


6416 L 
642. 2 


E456 1 


64606 2 


v 
. 
fuN Ee 


1F (MCEE eLEe (xdBtIcGLi = E£FULZEV)I GO TO lo 
TF CX€E) ~GE. (XUBLICOL) + ZTULZEY) GO TA 20 


bm | u 
GG f 30 
ee le 
SUMING = SUMINE # ALBCICGL) = X(L) 
56 TO 30 
VOL? wie 
SUMINF = SUMING + X(T) ~ xXUSCICCL) 
CONTINUE 
IF (SUMINE .GT. ZIGLSM) RETURN 
YCICBJ) = 1. 
IFFE2 i 
MSTAT wy 
RE TUR) 
EN 


SUBROUTINE PRICE 


PRICES GUT NONBASIC COLUMNS, CROCSES PIVOT COLUMN JCOLP FOR 
CURRENT PRIMAL= SIMPLEX ITERATION 

SUBRULETINE ADAPTED FROM LINEAR PROGKAMMING CODE LPMele WRITTEN 
BY 3.8. TOMLIN (OPERATIONS RESEARCH, STANFORD UNIVERSITY) 


IMPLICIT REAL®4 (A pC yEmHyGyPe Rw, 2)» REAL*B (BrDeXeV)y 
INTEGER *4 (I*N,Q) 

INTEGER*®2S JHeKINBASscAeLE, lA, le 

INTEGER®2 LPART, LNCUMB, TVBNOyIVIOe1LGBND 

OOLBLE PRECISION E(1000) 

REAL A(500) 


COMMOR/BLUCKS ZTGL ZEeZTOLPV, ZICGST, 2TOLRIe ZFEGLSM yQRO,y QMAVUBA SQFl 
QED, BL e QA yg QPL» UM 1 ey G2 yQ1 2 QF ey QNy QUe NRMAX gNEMAXK, QB,QCy 
QE sR eQbsQUeQReOM pQGeNTMAX 


CCMMON/BLGCK2/ DFP ART(122) ,REVBND eI NCVAL, ICOLsLI STL eI VALyIOIRe 
NPL VOT,LP TYPE ,ROOSTs TFEAS, FPARTEL 2) + TNCUMBIL22)5 
iYB8NDE5O00),f¥(00500),iGBND(500)} 


COMMON Ey REBEL Led by XUG11L22) 98060), X660),Y( 60) ¢ YTEMP(60) yOSUM: OPROD, 
LY 5 Ube UP, Ay LCNAM( 12252) 2 NAME (ZO) »>NTEMPO20)5SUMINF @ MSTAT, 
[UBS ARGWPs (VINA TVUUT eI TONTs INVER, LTRERQSLTSINVeLFFEZs 
JCOLP ¢ NRO me NCOL s NELEM, NE TA sNLELEMyNLE TA s,NUELEM »NUETAS 
FECL 000}, 141500), LE252) pL AV122) »KINBAS(L 22) + 5H(60) 


CMIN = 1-E10 

CMAK = -i.sE1L0 

DQ 1960 J=isNCOL 

IF (KINBAS( J) «GT. 0} GO TO 1000 
IF @(KUBLG) = MBC) «LT. ZTOLZE) GO TO 1000 
DOSUM = O. 

Li = CAC) 

KK = LAC{J#1) = 1 

00 50C [ = LiakK 

[IR = 1AGE) 

OE = btLD 

OPRCOC = DE * Y{IR) 

OSUM = DSUM + DOPROD 

CONTIAULE 

TF (KINGAS{ J) 2EQ. -1L) GO TO 60C 
IF {06SUM .GEse CMIN) GO TO 1000 
CMIN = OSUM 


Fn a IIE EYES AN LETT, TIER TIPO EH ore — — er 


ae JCOLL = u 
é72. 6C YC tovugd 
673. 6CC (TF (OSUM .LEe CHAK} GO TO idua 
674+. CMAY = DSUM 
6Tie JCOL2 = J 
3 674. 106CC CONTINU: | 
ie € | 
678. TF CCRIN .LE. ~ZTCOCST) GO TO 15900 
E19 6 LF (CHAX .GE. ZTCOST) GO FTO 2o0c 
680, JCOLP = OU 
681. RCOST = GO. 
682. RETURA 
683. L5CC fF (CMAX .GE. ZTCOST) GU TO 2500 
63%. L6éc€c JCOLP = JCOLI 
68D. RCOST = CHIN ; 
86. RETURN 
687. 20CG JCOLP = yCOL2 | 
688. RCOST = CMAK | 
689. RETURA i 
690. 25C0C TF (ABSiCMEN) ~ CMAX) 2000,200091690C 
691. ENO 
€92. SUBROLTINE CrudRr 
EQD)~6 ¢ 
694-6 c PERFURMS MIN-RATIO TEST FUR PEVOT COLUMN JCOLP DETERMINED IN 
de c SUBRUUTINE PRICE. SELECTS PIVCT ROw [ROWP FOR CURRENT PRIMAL— 
5966 C STPPLEX ITERATICN. | 
657. C SUBRGUTINE ADAPTED FROM LINEAR PROGRAMMING CODE © PM—i, wRITTEN 
698. . BY JeA. TOMLIN (UPERAT EONS RESEARCH, STANFORD UNIVERSITY) 
6296 C 
100. IMPLICIT REAL®4 (A eCyE=H,O,P,R~m_e 2)» REAL®S (BrDeXeV) es | 
TGL. 1 INTEGER*®G (imN,Q) 
1026 INTEGER*2 UHeKINBASsLAgLE, TA, IE 
703. INTEGER*®2 (PART, INCUMB,ILVBNO,IVIO;1G5NO0 
704.4 OOUBLE PRECISION £ (i000) 
T1056 REAL A500) 
79G.6 Cc 
TOT COMMON/BLOCK/ ZTOL ZEeLZTOLPVe ZICCST, Z2TOLR » ZTCLSM es QROe QMALQGA ,QOFI 
OB. l REG se GBL QA, OPL ps QM Ey GZ QL e QF s ON 2 QU, NRMAX pNEMAX, QR QC 
T0968 2 QE pW oll» Jp QRe UM oe Gy NIMAX 
719.6 Cc 
Li. CCMMON/BLUCK2/ DFP ART Le dd RP EVANDSINCVAL;-ICOL,LISTL,IT VAL, LOLR, 
th2. l NPIVOT, IO TYPE-KCCST, IFEAS, LPART(1L 22), 1TNCUMBIL 22), 
Tis. 2 IVE NU(500),I¥1 00500) ,L08NUC 500) 
714. Cc 
715. COMMON Ep, KALBCL 22) 9 XLG1122) 56100) 4X60) 41160) pYTE MP (60) »OSUM, OPROL 
716 1 DY »DEyDPy Ag ICNAM( L22e2)} 4 NAME (20) »pNTEMPU 20), SUMINF pp MST AT, 
HLT. 2 LOBULE RCWPe EVINAeL VOUT, LT CNT, INVERGe ITRERQSITSINVs IFFEL, 
718. 3 JCULP NRO Ws, NCUL, NELEMs META sNLELEMyNLETA,NUELEM»NUETA, 
719. 4 LE( L000), 180500) -LE( 252) LAC 122) eK INBAS(UL 22) 54H (60) 
720. c 
1256 LF (KINBAS(JCOLP) .EQ. ~i) GU TO 10G0 
122% C 
# 7236 ¢ INCOMING VARIABLE AT LOCKER BOUND 
724%. ¢ ¢ 
1230 OP = 1.4E1L0 
% 126.6 O06 SOC [=1 )NROW 
3 . 7127. If (f «Gu. LOBUI GC Ta 500 
‘ 1286 iCOL = JHIT) 
729 6 tF dvd) «GT. ZTOLPV) GO TO 100 
? 7306 IF (Vil) .LT. —2£TOLPV) GO TO 200 
x yds GO TO 50uU 
” 
% 76 


| 
732. e POSITIVE COGRFECLENT | 


7336 LCO IF CXt1) et To iXLB(ICOL) ~— ZTOL_ZE) GO TO 500 
734. OF = (Xt) = XLBLICOLII/ YORE) 
T3508 {F (DE «GE. OP) GU TO 500 
736. LPTYPE = OG 
3 737. GO TO 250 
733. C NEGATIVE COEFFICIENT 
7139. 20O t& txtty) GT. (XuBlLICVe) + ZTOLZE)) GO TO 500 
T1406 DE = (x41) — xKXUBLIECOLIIZYCL) 
741. IF (O€ .GE. OP) GU TO 500 
M426 IPTYPE = ~1 
743. 25¢ OP = CE 
144%. TROWP = i 
7456 $0C CCNTIAVE 
1466 DE = CP + XL3B¢UCOLPI 
T47 IF (CE ot T. XUBLJCOLP)) GO TU 6C0 
148. OP = XUBLUCCLP) - XLBI(JCOLP) 
7149. NPIVOY = QO 
1506 RETURN 
T5lLe. 6CC NPIVOT = 1 
7526 RETURN 
753.6 € 
754.6 € INCOMING VARIABLE AT UPPER BOUND 
7556 Cc 
7566 10CC DP = -1.E10 
757. DO 1500 L=LyNROw 
7586 IF ({t «EQ. IGBu)i GC TO 1500 
1596 (COL = JHCT) 
760. tf (ydt) «GT. ZTOLPYV) GO TO 1100 
76L. 1F ¢Y¢CE) «alte ~ZTOLPV) GO TO 1200 
To2- GQ TQ i200 
763. ¢ POSITIVE COEFFICIENT 
764.6 Lice TF (X(t) «GT. (KuBCICOL) * ZTQLZEd) GO TO 1500 
765-6 BE = (xth) = KRUB(ICOLSS/YOT) 
1666 IF (O€ -LE. OP) GO TO 1500 
767. (PTYPE = -1 
1686 GO TG 1250 
7696 Cc NEGATIVE COEFFICIENT 
7706 12CO IF (Xft) eL¥. (KLBCICOL) = ZTOLZEII GO TO 1500 
TTL. DE = (X€hd — XLOBC1COLII/ VCD) 
T2. {IF (OE .LEsj OP) GO TO 1500 
7736 IPTYPE = QO 
114 1250 OF = Ce 
775-6 TROWP = 1 
1766 15¢C CONTIAUE 
} tile DE = CP + XUBLSCOLP) 
| j TTB. IF (OE «GT. XLBEuCCLP)) GO TO 1600 
779. OP = XLBEUCOLP) — XUBCUCOLP) 
7806 NPIVOT = O 
781. RETURN 
182.6 16CC NPIVOT = 1 
7836 RETURN 
* 784. ENC 
. 785.6 SUBROLTINE WRETA 
786. C 
, 787. C FORMS NEw ETA=VECTOR CORRESPONOLNG TO CURRENT SIMPLEX PIVOT 
+ 788. C SUBROUTINE ADAPTED FROM LINEAR PROGRAMMING CODE LPM=1l, WRITTEN 
* 7896 Cc BY JeA. TOMLIN (OPERATIONS RESEARCH, STANFORD UNIVERSITY) 
7906 Cc 
sf 791. IMPLICIT REAL®4 (Ae lyk He GePeR~we 2) « REAL#B (BD eXeV) 
» 7926 1 INTEGER *4@ (I=-N;,Q) 
fs 77 
a 


~~ oe og SE Te eS 


Tapani.» thinnteienamnteRes cicatadashahae hates LAMB i late IN at hs et alien ae 


as 


1o0cc 
€ 


C 
€ 
C¥aet 
c 
C 


eee 


INTEGER*®2Z JHeKINBAS eLAgLE, LA, IE 
OCUBLE PRECISION ©& 1/1000) 
REAL A{500) 


COMMOAJBLUCK, ZIOL 2ZegZTGL PV. ZTCOST, £TULR SG, CTCL SM ep QROe QMA,UEA CFL, 
L CEUs CHL y OA r QPL y OM Ly Gy de Ge GN» QUy NRMAK @ NEMLK, QB, QC, 
2 QE pQhip dh» WOyURe QM ,QGrNTMAA 


COMMON Ee, XE BEL 22) - XUG11 26d) 45160), X060), 1160) « YTEMP 160) ,U0SUMs OPRODVe 


1 Of sDEsOPyAs ICNAME 12262) pNAME (20) »NTEMPI(20 ) eSUMINE »MSTAT, 
2 LGU80,LKOWwPs VEN LVOUT, ETONT, INVFRUe ETRERO YL TSINGSLFFE Zs 
3 ICOLP »>NROWs NCOLs NELEMe NE TAgNLELEM,NLE TA,NUELE Ms NUETA, 
4 Let iVOO), LALDOOC) PLEL 252) pLACIL2Z2) sKINBASE!L 22), JHI 90) 
NELEM = NELEM © i 

fECNELEM) = I[ROWP 

EINELEM) = YETROWP) 

oO 10CO0 I = Le 

IF (I «EU. TROWP) GO TG uur 

tf DABSIY II LE.» ZIGLZE 60 TO 1000 

NELFEM = NELCM l 

LE(NELEM | 

EINEL EM) ¥il) 

CUN* {NUE 

NETA = NETA # 1 

LE(NE TA+1) NELEM + ] 

RETURN 

END 

SUBROLTING SHIFTRUICLDOgI NEW) 


RE®RRANGES CATA STORAGE 
AEERDESCRIP TION UF PAKAME TERS *#¥* Ok oR S 
IOLC, INEw® = PARAMETERS INOICATING STORAGE LOCATIGNS FROM AND 
TO WHICH DATA 1S TO GE TRANSFERRED, RESPECTIVELY 
CRETE SARE ARSE SH THERESE UO EKEREK OS ETE 
SUBROUTINE AUVAPTED FROM LINESR PROGRAMMING CODE LPM=Ll, WRITTCN 
AY JeAe TUMLIN (UPERATIONS RESEARCH, STANFORD UNIVERSITY) 


IMPLICIT REAL#@ (A,CeEHy Oe Py Rewse Z) 9 REALTB (BeDeXeV)y 
l INTEGER®G G1=Ne QU 

INTEGER®2 JH ye KINBAS pl Ae _& LA, LE 

OOUBLE PRECISION € (1000) 

REAL A(5U0) 


COMMON/BLOCK/S 2TUL ZEyZTULPYV,) ZIC OST» 2TOLRJ yp LTCLSM,QROe QMALQBA LQFIs 
L QEQ,WDL+QA QPL, QML e QZ ele WE e QNe QU NRMAX »NEMAXe QB, OCs 
4 GE phe Uh s OU, QR» eM eQGe ANT MAX 


COMMON Ey XLBEL22)_ XUBIL2Z2) BL O03, XCGOI + V (60) eYTEMP (60 1 yOSUMs OPRIDe 


\ DY + DE + DPe Ap LONAME 12292) ep WAME (20) »NTEMPC20 ) pe SUMINF oe MSTAT, 
2 [UBU,IROWP, AVINe EVOUT SL ECNT, INVERQ, EFREROZETSINVG TEFE Le 
3 JLULPeNROw, NCOL + NELEMyNE TA eNLELEM»NLETA,NUELEM,NUETAY 


LEC LOOO}s LA C5001 LEC L!]52) gLALIL2) »KINBAS(1 22), 45H C60) 


OIMENSION BARRAY 6240) 
EQUIVALENCE (BARKAY(12,5¢0192 
{Fo = (LULG =~ Lb} © NRMAK 
TFN = GINEwW ~ Lt © NRMAXK 


Rak a 


e 


ao 


Oana 


OG L0CO Ll = i, NKOW 
BAPRAY(IEN + 1) = BARRAYECLFO + 1) 


LOCO CONTIAUE 


RETURA 
EAD 
SUBROLTINE INVERT 


COKPUTES ENVERSE OF CURRENT BASIS BY LU DECOMPOSITION 
SUBRRDUTINE AUAP TEL FROM LINEAR PROGRAMMING CODE LPMel, WRITTEN 
BY JeA. TOMLIN (OPEXATIONS RESEARCH, STANFORD UNIVERSITY) 


IMPLECIT REAL#4 (A pO eEmHyOeP RoW, 2) » REAL®B (BeDpXsV) oe 
l INTEGER®& CieN,Q) 

INTEGER*®2 JRyKINGASsLA,Ler eo ing LE 

DOUBLE PRECISION £41000) 

REAL #0500) 


COMMONR/BLUCK/ ZTOLZEyZTOLP Ve ZTCUST, ZTGLRI, ZTOL SM yp QRUe QMAs QBA,QFI, 
1 WED, CEL WA SQPLy UME y OZ QL 2 QF y QNy QUy NRMAX pNEMAXy Ub QLe 
2 QE AH eQL, UO, QRe QM QGy NT MAX 


COMMON Ey XL BL 22), XUB(L22)58660),X160) -¥(60) ,YTE MP (60) sUSUMs DPRUD:e 
OY, DEy OPe dy LCNAMOL2292) @ NAME (ZO) eNTEMP( 20) ¢SUMINFE pMSTAT, 
[USS ,TROWP, IVINe TE VGUT,ITONTs INVERQs ITRERQGITSINV, IFFE Ls 
JCULP »NRU Wy NCOLyNEL EM, NE TApNLEL EM NLE TAgNUELEM sNUETA, 
LECLOVO), TAC5O0) LEC S52) pL AC 122) eK INBAS(1 22) 9 5H(60) 


Sfunrwre 


INTEGER*2 MREGsHRE Gs VREG 
DOEMENSLON MREG (60) »HREG( 60), VREG(60) 
EQUIVALENCE (MREGE LIVYTEMPCL) ds CHREGOLD, YTEMPOC3L) 2 ¢¢VREGII),xXCLd 9 


SET PARAMETERS 


{Rl = | 

KR = 0 

LRG = NROW * i 
KR& = NROW 


PUT SLACKS AND ARTIFICIALS IN PART & AND REST IN PART 1 


DO 10C £ = LyNROW 

TF (JECITS .GT. NRUw) GO TO 50 
= LR& = 1 

MREG(LRG) = UHddd 

{LR4) = JHOL) 


} 90 
SC = KKl + 2b 
VREG( KR) = JHIT) 
6C HREG(I) = =} 
JH(T) = G 


10€ CONTINUE 


KR3 = LR& =] 


aR. RE ee eke eta eal ee Ad a ee CRT PFE aaa ERT a rere ad at on ~ 


aed 


a 


PULL OUT VECTORS BELOW BUMP AND GET ROW COUNTS 


$15. LR3 = iLR4S 

GSi6be C 

SLT. DO 20C I = LRKG,KRG 
918. IR = PREGOI) 

S19. HREGCIRI= CO 

$20. JHCTR) = LK 

92i.e KINGAS(IRI = IR 
S22. 200 CONT TALE 

923. € 

924. € 

S25. C 

926-6 NBNCNZ = KR& — LR& 
S27. TF (KR «EQ. O) GU 
$23. J = LRi 

$29. 210 IV = WRELCS) 

$30. Le = LALIV) 

931. KK = LACIV+r1d 1 
932.5 IRCNT = O 

$33. 00 22C€ I = LbyKK 
S34. NANCNZ = NGBNONZ + 
S35. IR = IACI) 

S366 [fF (HREG(IR) GE. 
937. IRCAT = iRCNT + 1 
9386 HREGCIR) = HKEGCIR 
G39. IRP = [RA 

$40. 22C CCNTEAUE 

941. {F ({RCNT =— 1) 230 
S42. 23C WRITE (628000) 

943. @CCC FORMAT(LEHOMATRIX 
S44. KINBAS(IV) = 0 
945.6 VREG( J) = VREGIKRI 
946. KRL = KRL = } 

947. {fF (J .GT. KR1) GO 
S43. GO TO 210 

949.4 C 

950. 25C VREG(J) = WREGIKRL 
951. KRL = KRL = 1 

9526 tRS = £R3 = FI 

953.6 VREG(LR3) = IV 
S54. MREG(LR3) = IRP 
555-6 HREG( ERP) = O 

$56. JHCIRP) = IV 

G57. KINBAS{IV) = IRP 
S586 [TF (J eGTs KRKL) GO 
S596 GO TO 210 

969. 360 IF (J «GEs KRI) GO 
S6l. J = Jel 

G62. GO TO 2lU 

G63~6 C 

564. € PULL 
G65~6 C BU MP 
S46. c 

Sé7. 310 NVREM = G 

S6B6. IF(KRL «EW. 0) GO 
$69. J = &RE 

S70. 32€ Tv = WREG(J) 

9T1Le Li = LACIV) 

Sl2.- KK = LACIVel) = 1 
973. TRCNT = U 

$74. DO 8CC I = LbyKK 
S75. tR = FACIL) 


et! 
TO 1190 


i 


CC} GO TO 220 


ere | 


250,300 
SINGULAR ) 
) 


TG 310 


) 


TO 310 


TQ 310 


CuT REMAINING VECTORS ABOVE AND BELOW THE 
AND ESTABLISH MEKIT COUNTS OF COLUMNS 


TQ 1190 


80 


i a i al 


as 


r SN ae ee ae EES TM WET) SS EET 


Oan 


AON 


1035. i102¢ 


LS ee err er Sr 


LFCHREGL IK) eNEs ~23 CO TO 400 
PivVOY ABOVE BUMP CPART OF LI 


NABOVE = NABOVE + 2 
YROWP = IR 

CALL UNPACKELTY) 
CALL hRETA 

NLETA = NETA 

JHIER) = TV 
KENBAS(EV) = ER 
VREG( J) = VRECtKRIL) 
KRL KRE =~ | 

= NVREM + 1 


{fF (HREGLIR: -GE. O03 GO TO 800 
IRCNT = [RCNT # ] 


fF (iRCNT =~ L} 616,900,1000 
RITE (598000) 

NBAS{IVY = 0 

EGiJ} = VREGIKRL? 

NVREM = NVREM + 1 

KRE = KRIE = 1 

IF (J «GT. KRL GO TO 1010 
ea) 


YG 320 


PUT VECTOR BELOW BUMP 


} = VREGIKRL) 

= NVREM + 1 

KRI = 1 

2 
YVREGULRG) = iV 


MREG(LRA3Z) = IRP 
HRECT EIRP) = 

JHCTRP) = £¥ 
KINBAS(IV) = IRP 


CHANGE ROw COUNTS 


nO 950 Th = LL eKK 

TIR = FACIE) 

TF (PREGLEIR} GE. OQ) GO TO 950 
HREGCETR) = HREGCZ IRI + 2b 


CONT ENUVE 
iF (J «GT. KR1L) GO TG 1010 
GO f0 320 
TF {3 «GE. KR1I}I GO TO 1010 


GO YO 320 
TFENVREM .GT.e OF GO TO 310 


GET MERTT COUNTS 


TF (KARE -ECe OF GO TO 1190 
OO LiCG J * LRAZKKRL 


81 


a re eer OR Es as Ove ee ee ree wee ame 


oH Oar 


as 


ee aie li 


<> 


1037. 
1038. 
1039. 
1040. 
1041. 
i042. 
1043. 
104%. 
1045. 
1046.6 
1047. 
10%6 6 
1049. 
1050. 
icSi. 
1052. 
1053. 
1054. 
1055. 
1056. 
1057. 
1058. 
1CS9. 
1060. 
1O6L. 
1062. 
1063. 
iC64. 
1065.6 
1066. 
1067. 
1068. 
1069. 
1070. 
LO7L. 
1072. 
10736 
LOTS. 
1075. 
1076.4 
1077. 
1078. 
1079. 
1080. 
1081. 
1082. 
1083. 
1084. 
1085. 
1086. 
1087. 
1088. 
1C89. 
1C906 
ic9Le 
1092. 
1093. 
109%. 
1095-6 
1096. 
1097. 


MAAN 


DADOEB)3s 


L1C3 
11¢5 


1ic4 


11C7 


1150 


TST UN ES PTR ORT Teepe - wer = aie 


Se ary ow 
ares m —s —_ 


{Vv = VWREG(J) 

LL = LACIV) 

KK = LACIV+l) = 1 

IMCNT = O 

00 105C f = LLsKK 

IR = fACT) 

IF CHREGCIR GE. C) GU TO 1050 
[MCNT = EMCNT — CHREGIIR) #1) 


CONTLAUE 

MREGid; = LMCNT 

CONTIALE 
SORT COLUMNS iNTOQ MERIT ORDER 
USING SHEL’ SORT 

1s0 = 1 


IF (KRL «LT. 24180} GO TO 1108 
ISD = 2"£S0 
GG TO 1106 
ESO: = ISO = 2 
ENO OF INITIALIZATION 
IF (FSC .LE- 03 GO TO 1107 


ISK = 2 
ISJ = ISK 
tS = ISK + ESO 


1Sy = MREGCISL) 

{SZ = VREGCLiSL) 

TF (1S¥ «LT. MREG(ISJI) GO TO 1104 
{St = [Sy + [$0 

MREG( ISL) = ISY 
VREG( ISL) = IS2 
ISK. = SK #1 
ff GCESK # ISD) .LEe KRL) GO TO 1102 
ESO: = ESO Te P52 


GC TO 1101 

ISt = [SJ + ISD 

MREGC(ISL) = MREGII SJ) 
VREGC ESL) = VREGII SS) 

IsJ = Su = 150 

{fF ({ISJ «GT. 0) GW TO 1103 
GG TO Llu5S 

CONTINUE 


ENO OF SORT ROUTINE 


PUT OLT BELOW BUMP ETAS (PART OF U) 


NSLCK = QO 
NBELOh = O 
NELAST = NEMAX 
NYLAST = NTMAX 


LE(NTLAST ¢ 1) = NELAST ¢ i 


LR = LR 

IF (LR3 .GEs LR) LR = LRE 
IF (L® «GT. KR) GL TO 2050 
JK = KP + 1 

DG 20CC JJd= LReKRG 

Jk ak = 5 

iV = WREGEJK) 

1 = MREG( JA) 

NSELOW = NBELOW + 1 
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——— 


a 


as 


OE IMTS ET REET TEI NO ET ENT ETM TF PT, SMI treme aE SE RT = 
= ae eis - , ‘i ‘ rats se pi ee ee wena - ‘ oe Sia a 
it aT aN a 0M OR mS me ae A nl as iil te tothe aia Nt 
1098. IF (fy «GT. NROW) GO TO 1200 
1099. NSLCK = NSECK + 1 
1100. 12cC Le = LAME) 
10L. KK = LACiV#l) —1 
i102. IF (KK wGT. LL} GO TO 1300 
1103. L25C IF CAPSLALLLI ~ Led wLEe ZTULZE) GO TO 2000 
2104. Cc 
1105.6 13C0 NYUETA = NUETA + 1 
Lido. 00 14E0 J = LiisKkK 
LLOT. IR = {ACSI 
i0B. TF $iR 2EG. 1360 TO 1390 
1109. LECNELAST2 = IR 
10. E{NEL AST) Al Ji 
LiL. NELAST = NELAST = | 
ll2. NUELEM = NUELEM + } 
13. GG TO 31400 
lil4. 1390 EP = Ais) 
1115. 1400 CONTINUE 
1116. KE{NELAST) = § 
Li1Ts E({NELAST) = EP 
8 LEANTLAST? = NELAST 
NELAST NELAST = 1 
NTLAST = NTLAST = 1 
NUELEM = NUELEM © 1 
20cc CONTIAU 
2050 IF(KREL sEQe OF GO TO 3500 
c 
ts DC L=U DECOMPOSITION GF BUMP 
C 
DC 30CO J = LRIgKR1 
[¥ = VREG{J} 
CALL UNPACKIIV) 
CALL FYRAN(2) 
TROWP = O 
IRCMIN = ~999999 
ou 2100 | = i,NKGw 
LF (DABSEYAL2) .LE. ZTOLPV) GO TO 2100 
IF (HREG( I) .GE.0) Go TO 2100 
[LF (HREG(L) eL&. IRCMIN) GO TG 2100 
IRCMIN = HREG{ 1) 
[ROP = I 
2100 CONTINUE 
If (fPOwP «GT. OF GO TO 2150 
WRITE (6.8000) 
KIN@ASEIVI = 9 
64 70 3000 
2180 INCR = HREG(IROWP) +¢ 3 
5» C 
147. ¢ WRITE & AND & ETAS 
1148. c 
1149. IF {J «EQ. KRIP GO TO 2160 
130-6 NELIM = NECEM + 1 
i151. LTELNELEM) = (ROWP 
1152. E(NELEM) = YEECROWP) 
1153. 2160 00 2300 [ = 1, NROW 
1154. TF if cEQ. IROWP} GO TO 2300 
11556 IFCOSBS(YG12) sLE. 2TOLZE) GO TO 2300 
1156. TF tHREGLT) «GE. OF GO TO 2200 
LiS?. £ 
Lis8 C 4 ETA ELEMENTS 


RT ERE REE EI TA TET rT tenner 
iE ond , er Helo, ; / Y 
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“rs SW: 
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a Sa a al 


To a narenrs 


I OE ETT TE TES ELI EE TY FS ARNO TES TM VET 


7 


1159. cs 
1160. NELEM = NELEM + 1 
L161. IECNELEMD = I 
1162. E(NELEM) = YUL) 
1163. GO TG 2300 
3 1164. ¢ 
| 1165. C U ETA ELEMENTS 
t 1166. (3 
f 1167. 22CC LEC(NELAST) = I 
1168. E(NELAST) = YOU) 
1163. NELAST = NELAST - 1 
L170. NUELEM = NUELEM + 1 
VET. 23CCG CONTIAUE 
f 172. c 
| 1173. JHCTRCWP) = IV 
| 1174. KINBAS(IV) = TROWP 
| 1175. NUETA = NUETA + 1 
| 1176. LE(NELAST) = LROWP 
| YLTT. IF (J Ne. KRLI GO TO 2330 
} 1178. E{NELAST) = YC IRUAP) 
1179. GG TG 2340 
1180. 2320 E(NELAST) = ie 
1181. NETA = NETA + 1 
1182. LECNETA+L) = NELEM # 1 
1183. 234C NUELEW = NUELEM + 1 
1184. LEC(NTLAST) = NELAST 
| 1185. NELAST = NELAST - 1 
1186. NTLAST = NILAST = 1 
1187. Cc 
1188. c LPDATE RGw COLNTS 
1189. Cc 
1190. O00 2350 I = LyNROW 
L191. LF (DABStYCT)2 «LE. ZTOLZE) GO TO 2350 
1192. IF (FREGi LT) .GEs 0) GO TO 2350 
11936 HREG(I) = HREG(L) = INCR 
1194. IF (HREG(I) .GE. GO) HREG(I) = -1 
1195. 236C CONTINUE 
1196. mREGCIROWP) = 6 
LIGt< 300C CCNTIAUE 
1198. C 
1199. € MERGE L ANO U ETAS 
1200. Cc 
1201. 25CC NLETA = NETA 
1202. NETA = NLETA + NUETA 
E 1203. NLELE® = NELEM 
t 1204. NELEM = NLELEM + NUELEM 
i 1205. I€ (NUELEM .EQ. 0) GO TO 3550 
| 1206. CALL SHFTE 
| 1207. (s 
1208. c INSERT SLACKS FOR DELETEC COLUMNS 
1209. c 
} 1210. 3550 DO 36CO Lt = Le NROW 
| M24. IF (JF{T) -NE~ 02 CO TO 3600 
f 5 1Zi2< JHOLY = I 
x 1213. IROWP = [ 
cK 1214. CALL UNPACKOL) 
F c 1215 CALL FIKANGL) 
* 1216. CALL WRETA 
t 1217. 26CC CONTINUE 
% 1218. C 
B 3 1219. C UPLATE XK 
| q 84 
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1 ‘ Cé s TR ) 
= 222. dE £0 ] COL 
* 223 Lf Na 1} B60598700,9000 
i22 { Aut 3) 
2 ut & 
: ° iC 0 PLBE Si 
7S5C Lt A 
<> * as 
if . ) 
ig3l 88Gc YI th) = AL Td *DE 
SCC f T Lo I | 
I i Nd | 
‘s t TRi3s2) 
| 
| 
1237. SUBROL TINE UNPACK(LV) | 
¢ DS COMPRESSED MATRIX COLUM | 
a fREEAERPSOESCREPTICON UF PARAMETERS ® #4 4k OR 9 
« C i f AETER INCEXING CGLUMN TC BE EXPANDED | 
Ie Caretaker NER MMS RE ER GREER RASH AKEREREE ] 
i & ~ OuriNe ADAPTED FROM LINEAR PROGRAMMING CODE LPM=l, WRITTEN 
244. Cc AY J.A. TOMLIN (GPERATLONS RESEARCH, STANFORD UNIVERSITY) 
L246 BS (AoC yEnteOeP eRe Zi ¢ REAL*S (BeDeXeV) yo | 
Te i Req LI=-N,Q) | 
244. KINBAS»LAsLEs IA,TE 
D f ON £ (1000) 
RE {50 | 
2520 COMMON/SBLUCKS LTGt 2 ELT GLP, ZICCS Ty ZTULR Ge LT CLSMy QRUs QMALQEAOFI s | 
253 i CEO, CSL e UA eaP ts QMiy CL eQle QF sr ON QUs NRMAX pNEMAX, QBe Cy j 
1254.6 z GE pQHeQhLsUGsQRe OMe GGe NTMAX 
4 Gs MON Es SL BOL 22), KUB(1LE2)_3660),Xi 60), 4160) »>YTEMPLO0 )»DSUM, OPRUDs | 
. ! OY y UE. OP y Ay LCNAME 1229235 NAME (20) »NTEMP{202,SUMINE »MSTATs 
“ [OBUs LROWP, TVINe LOGOUT, LT CNT, INVERGsITRERQeITSINV, FFE Ls 
Fa 3 JCOLP ,NRGW, NCOL, NELEM, NE TA eNLELEMeNLETAsNUELEM,NUETA, 
4 TE¢ 10002, 1A (5002 ,LE(C 252) LAC 122) +KINBASI1L 22), JH(60) | 
e o£ 10€C | = 1,NKOW 
5 icé CONTIN | 
67. Ky AiiveLl} - 2 
Ta) = | KK | 
3 «! 1269. [Ff TACL) | 
9- SCERE = ACTS | 
Ti 2ce CONTINU | 
; C | 
. SUBROUTINE SHFTE ] 
” 2166 Cc | 
. 1277. € SUERUUTINE FOR INVERT | 
i278. C SUBROUTINE ADAPTEU FROM LINEAR PROGRAMMING CODE LPM=L» WRITTEN | 
1279. 4 BY Jehan TOMLIN (OPERATIONS RESEARCH, STANFORO UNIVERSITY) 
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IMPLICIT REA 
} ry! 
TA, FG j 
ot ( 
=A £1500) 

MMOR/ 

i 
? 

OM f\ Al 
i Le 
oJ 
J r 

f 

° ‘ 
} 
AEMAX « 

CR = O 

GO L0C¢ 

' 
+ y 


: 

NCR = LNCR 
(NLETA # I 
NTT? ct 


UPCATES R 
CURRENT SIMPI k 
SUBROUTINE ADAPTEC 
TUMLIN (CPERATIONS RESEARCHe STANFORD UNIVERSITY) 


pEmtyUsPsB—we Zig REAL#E (ByDeXeV) » 


Le, €TOLP¥, ZTCOST, 2ZTOLR Ss ZTOLSM 2p QROe QMA,QHASQFI 2 
eG bee UA UPL gp QM le OZ sO! QF 2 QNe QUe NKMAX pNEMAX, QG,ULy 
we pw he Wh pO pQre QM eQGy NT MAX 


Leeds AUBLL2] 2378660) X60) ¢V¥ (60) sYTEMP (60 )+DSUM, OPROD, 
>e ds (ONAMO 12242) 9 NAME(Z03 sNTEMP(20) ¢SUMINE pMSTAT, 


(ROW Py LYEN,T VOUT, LI CNT, INVFROs ETRERQVITSING, LEFEZ, 
7NHMOwW, NCUL,NELEM, NETAsNLELEMeNLE TAyNUELEM »NUETA, 
JU 2g EA CELOOD ALES 9 YN) LAC I22) eK INBAS{1L22)5JH(60) 
rT c ND E OF U ELEMENTS 
i & a . a i 
VF oN EMAX 
INCR) = LECH) 


Ri = ECE) 


{OIF = NEMAA — NLELEM = NUELEM 


NUETA # ] 


NF gNTMAX 


INCR? = LECI) — IOIF 


NELEM # Lb 


{GHT-HAND SIDES TO REFLECT NEW BASIS RESULTING FROM 
PIVL Tt 


FROM LINEAR PROGRAMMING CODE LPH=1, WRITTER 


MPLICIT REAL#4 (AgCyF=tHe OePy Rome Z) 2 REAL*B (ByDeXe¥) + 
NTEGER*®4 {(1-N,Q) 
RK2 JH) KINBAS LA, LE, LA, IE 
ReZ FPAKT, INCUMD,IVBNO,IVID»I CBND 
f PR [StOn & 1/1000) 
REAL a4 


COMMOR/BLOCKS ZIOLZEs2ZTOLP Ve LTCOST, ZTOLRISs ZTOLSM > QRO, QMA,QBA LOFL 


COMMON/BLOC 


CEG, COL, OAs OPL y OMT, QZ e Qis QF y QN,QUs NRMAX pNEMAXe O89 QCe 
BE Qh oils QU +QR sy QM QGyhT MAX 


2/ DFP ART(122)-8EVBNO eI NCVAL, ICOLyLISTLe IT VAL sIDIR,» 
NPEWOTS IP TYPE pACOSTe LFEASS EPARTIL 22), INCUMB(122),5 
VO NU(500),1V1 06500) eLGBND( 500) 


COMMON Es XLBCL 223, XU81122)961(60)—4X060)-.Y{60) e YTEMP (60) -DOSUM, OPROD, 


l NY.AE 
WE ese 
Z iObs 


POP ads TONAME Lede dd ¢ NAME (20) ¢NTEMP( 20), SUMINE »MSTAT, 
LROWP, IVINy LVOUT SLT CNT, INVERQs ITRERQeITSINVe IFFE Cs 


66 


Lh aa ee ais 


ao 


me sae 


ee 


1342. 

343. 

134%, i 
1ecc 


« 2ccec 


Maan 


140l. 


Ye geU III RET SEO WT 


3 & Pa Es 
‘ ‘ ‘ 
i LOCO 1 ghtitUw 
HEL? = Ai} Y 
LF NF ive ds 
KINBA } P) 
vout JCORP 
RETURN 
XCiROWP) = Ot 
tvout JHULKO WP 
KENBAS(JCULP) = 
KINGASLL VOUT 
SHUCTE owes JC OL 
TUR 
END 
IROL TINE NURMAL 
9ERVES AS MAS 
(REVESED PRIM 
St 


BRUUT EINE AOD 
} TUML! 


LMPLICIT REALS4 

i {NFEGER 

INTEGER*Z JHo WI 
E 


INTEGER¥2 L¥ART, 
DOUBLE PRECISION 
REAL A500) 


COMMON/BLOCKS ZT 
1 GE 
2 QE 


CCMMON/ALOUCK2/ 
1 N 
< A 
CCMMCN Ee kL bdi2d 
DY» DE p 


ny NCU ELEM se Ne TAsNLELEMeNLE TARNUELEMsNUETA, 
ledd KI NBAS(L22},jJHiou) 


{500) +LEC252) LA 


IR CwP 
lL? TYPE 


4 


TER PROGRAM FGR LINEAR PROGRAMMING COMPUNENT 
AtL~-SIMPLEX MeTHOD). 

AP TED FRUM LINEAR PROGRAMMING CODE LPM=-1, 
RESEARCH, 


WRITTEN 
N LOPERATIONS STANFORD UNIVERSITY? 
{A eC olmrHeOpPeR~ wy Z)y REAL*S 
«> tIl-Ny Wd 

BASeL ALE IAs IE 
INCUMBy,IVSNO- LV ID, 1TCBND 

€ (1000) 


(BeDyXyV) > 


OL ZEsZTOLPVe ZICGST, ZTOL RS, ZTCLUSM, ORDO? QMAVQBA QFI , 
Op CBL e OR ep QPL sg M1202, Q1 2 QF e GNe QUy NRMAX pNEMAXe OBA QC, 
sPQHeQhs QO GR, QM pQG_ AT MAK 


FPART{L22),REVENO I NCVAL se SCGLyLISTLeI VAL, IDOI R: 


PTVOTs ITO TYPE ,RCOST, IF EAS, TPART(122),LNCUMBI1L22), 


[VAND(500},IViut500) ,1Q8ND( 509) 


dy XUBLL 22) 98460) ,X(60),YC6C0) ¢ YTEMP(60) »eUSUM, OPRUD: 
Ae LCNAM( 1224235 NAME (20) sNTEMP( 20), SUMINE sMSTAT, 


1 Ee ‘ 
2 TUB el ROnP. EVIN, EVGUT ST TONT, INVERGe ITRERQGITSINV, IFFE Le 
3 JOULP ey NKO wy NCULs NELEM, NE TA pNLELEMeNLE TA,NUELEMsNUETA, 
4 LEC LONG), LA CSUG) gLELEZ52) sSLALL2Z23sK ENBAS(L22),SH000) 
{F (i TSiNV .LT. INVERQ} GO TU 1500 
AINVE ‘ 
YY 
EMPLEX CYCLE 
CALL FORM 
CALL ETRAN 
CALL FRICE 
IF {JCCLP «Gf. G) CO TU 3000 
IF UMSTAT 2EQ. QI } GU TO 2000 
MSTAT = QB 
GO TC 600u 
MSTAT Oh 
GO TO 6000 


[VIN = JCOLP 


a ai kL le ee 
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LOO Ah PROG Hy meee Nat ny 


ae er nem 


as 


Tak Ya 


a 


1403. CALL FIRANGOL) 


1404. CALL ChUdK 

14056 CALL LPBETA 

1406. ITCNT = ITCNY # 1 

1407. ITSINY = ITSINV + 1 

14045. IF (NFIVUT «tg. ud CO TO #010 

1409. IF (NELEM «GT. 5u00C) GU TU 1000 

1410. CALL WRETA 

141l. 4O01C ITF (CETSINV ee. INVFKQ) GU TO LCCC 

1412. IF (LTCNT .GE. TTRFRQ) LO Ty 6000 

1413. GC YO 150u 

1414. C 

1415. ECCC RETLURA 

1416. END 

14i?. SUBROLTING SANCB(LNIT8O) 

1413. C 

1419. € MASTER PRUGRAM FCR BRANCH-AND=BOLUND INTEGER PROGRAMMING ROUTINE 
1420. c ALSC sc RVES AS MASTER PROGRAM FOR REQPTIMIZATION VIA OQUAL— 
l42l. Cc SIMPLEX Mt THUU AFTER A FURWARD BRANCH. 

1422. C#PTSeeEADESCRIPTIUN UF PARAMETERS ® ¥O KR HES 

1423. C INT Tou = INITIAL LGwek SOUND GN MAXIMAL OBJECTIVE VALUE CINPUT) 
1424.6 CHORE TREE OCHRE EE EERE KR OKETARE EER SEE EERE OE 

1425. C 

1426. IMPLICIT REAL*4 (AeCsE*HyCyPpR=wel) » REAL*®B (ByD eX eV) 

1427. 1 INTEGER*4 (I-N,Q) 

1428. INTEGER*®2 JHeKINGAS te LAVLE,IA,IE 

1429. INTEGER*2 IPART, INCLMB, I ViNO,I VI0,1 CBND 

1430. OCOUBLE PRECISION e€(1lUu0d) 

1431. REAL A(500) 

1432. COMMOR/BLUCK/S ZTOL 2EyZTOLPVeZICGSTs 2TOLRJy ZTOLSMy QROy QMA,QBA,QFI , 
1433. 1 CEUs BL yA g QPL ey UM 1s CL pQig QF e QNs QU, NRMAX Nr MAX, QO5rUCe 
1434. 2 Ge me hy QL yQOepwKe WM eQOGe ATMAX 

1435. COMMCN/BLUCK2/ UFP ART (122) eREVEND INC VAL eICCLeLI STL» LT VAL e+ LOIRs 
1436.6 1 NPEVCT,LPTYPEsRCOST,IFEAS, LPART(L22), I NCUMBbI1L 22), 
1437. 2 1V¥5ND(500),ivI10(500) ,LOBNUI 500) 


1438. COMMON Ee XLB6i 2244 XUB(122) 181500) — X0E02,Y160) pYTEMP (60) ¢0SUMs OPRULs 


1439. 1 GY sLEsDP + Ay ICNAM( Le2y2) »NAME (20) »NTEMP( 20 d4SUMINE @ MST ATs 
1440. 2 LoGdy LKOWPy LVIN, CVUUTe LTCNTs INVERQ,ETRERQ YT TSINVy LEE ey 
1441. 3 JCOLP yNRU We NCULy NELEMe NE TAyNLELEMe NLE TApNUELEMeNUETA, 
1442. 4 LEC LO0O)s LA (500) ,LE( 252) pL AL 122) sKINBAS(L 22), JSH(00) 
1443. LISTL = Oo 
1444. INCVAL = INITSO 
1445. C TEST FUR FATHOMING 
1446.4 LEG CACL FESTX 
1447. TF (MSTAT 2EQ. VBL?) GG TO 200 
1445.4 C CURRENT NODE FATHOMEDs GACKTRACK TO LAST PROMISING NUDE ON LIST 
1449. LEC CALL BKTRAK 
1450. Ls TF LIST [LS EMPTY, RETURN TO MAIN (COMPUTATIONS COMPLETED) 
1451. TF (LISTE «EQ. UO) RETURN 
1452. C USE PRIMAL=SIMPLEX Me THCD FUR RECPTIMIZATION AT NEW NODE 
1453. CALL NCRMAL 
1454. GO Td 100 
1455. G CURRENT NODE NUT FATHOMED, COMPUTE PENALTIES 
145%. c PRANCHING AT CURRENT NOUVE IS DONE FROM SUBROUTINE PENLTS. 
1457. 2cC CALL PENLTS 
1458. TF (ICTR) 400, 15C, 460 H 
1459. Cc 
146). C REINVERT CURKENT BASIS 
1461. 10CC CALL INVERT 
1462. ITSINV = 0 
1463.6 C 
88 
EF OOO EF TE OI PLS, SLT OE IY eT re ee a te TN a ee Sad Wr an = Tet 


1464. € UVUAL SIMPLEX CYCLE 


1465. € 
1466. C CHCCSt PIVOT RUW [ROWP 
1467. 3CG CALL CCHULR 
14638. IF (IRQwP .GT. O) GU TO 400 
1469. MSTAT = QBL 
: 1470. GC TO 1luG 
L471. (3 CHCOStE PAVGT COLUMN JCOLP 
1472. 4CC CALL CCHULE 
1473. If (JCOLP .EQ. 0) GG TU 150 
1474. {VIN = JCOLP 
1475< C UPDATt KIGHT=-HANC SEDES TU REFLECT NEW BASIS RESULTING FRO® 
1476. C CURRENT SiMPLEX PIVOT 
1477. CALL ULPBETA 
1475. ETCNY = EITCNT + ¥ 
1479. {TSINV = ITSINV + i 
1480. C CECTOE wheTHER TC RETNVERT CURRENT BASIS 
L48Ll. TF (CNELEM .GT. 56C0) «OR. (LTSINV .GE. INVFRQ)) GO TO LvOO 
1482. C REINVERSITON NOT NECESSARY YET3 wRITE OUT NEW ETA-VECTGR FOR 
1483. C CURRENT SIMPLEX PIVOT 
1484. CALL wRETA 
1485. GC TO 309 
1486. END 
148?. SUBROLTINE CCHULZR 
1488. C 
1489. Cc SELECTS PIVCT ROW IROWP FOR CURRENT OUAL-SIMPLEX ITEKATION. 
1490. C SETS [RUOwP = OQ IF CURRENT BASIS IS OPTIMAL. OTHERWISE, IROWP 
14691. Cc [S CHUSEN TG BE THE RUwW WITH GREATEST PRI MAL~ INFEASIBILITY 
1492. (3 
1493. IMPLICIT REAL*4 (AgCyEHyOePyR~wyel) » REAL*®B (BeDeXeV)y 
1494. 1 INTEGER *4 (I-N2Q) 
1495. INTEGER*2 JHyKINBASelLAyLEs lA, TE 
1456. INTEGER*2 [PART, INCUMB, lL VONOyI VID, CBND 
1497. OOUBLE PRECISZUN E (1000) 
1498. REAL AL5SOO) 
1499. COMMON/BLOCK/ ZTOL ZeEyZTOLPVe LZTCOST, 2TOLRUy ZTCLSM, ORG e QMAe QBA QFiy 
1500. 1 CED, BL pUAe QPL » GML, OL Qty QF se QNs QUp NRMAX »NEMAX, OB rC,y 
i501. 2 WE pub gp Qh» QO er QR» whe QGe Nt MAA 
1502. COMMON/BLOCK2/ DEP ART (iced) yREVBNDe INC VAL {COL LI STL ei VAL eI OI Rye 
1503. ii NPI VOT,IPTYPE,RCCST, ILFEAS, TPART(L22})5 INCUMB(1L 22) 5 
1504. 2 LvBNO(500),1¥10(500) »{GBNO(50G) 
1505.4 COMMON Ey XLBC Led) s XUBLL22)9B1O0)4 X01 60) e VYiOC) e YTEMP (60) »OSUM, OPROD, 
1506. l DY pUVE PUP, Ay ILNAM( L22y2d_, NAME (20) »NTEMPL20 } > SUMINF pMST AT, 
1507. Pe [UBdyIRGWP» IVINy i VOUT e IL TONTs INVERQeITRFRQSILTSINVe LFFE Ze 
1508. 3 JCULPeNRGW, NCOL,NELEMs NE TA yNLELEM»NLETAsNUELEM,»NUETA, 
i509. 4 LE( 1000), [A (500) ,LE( 252) LAC 122) sKINBAS(122)5J5H(00) 
1519. ¢ 
5il. C CHOOSE ROW wITH GREATEST INFEASIBILITY 
1512. & 
15136 [ROwWP = QO 
1514. OP = -1.E10 
15156 OG 10C0 L=1,NROwW 
4 1516. IF (1 «EQs IGKJ} GC TO i000 
by L517. ICOL = JH(E) 
1518. IF OXCE) oLT. (XLB¢CICOL) = ZTOLZE)) GO TO 100 
1519. CF OXGL) .GTs (XUBCICOL) + CTULZE)) GO TG 200 
1520. GO TO 1000 
‘ 15216 { 
él 1522. C BASIC VARIABLE CN ROW [ FALLS BELOW ITS LOWER BOUND 
4 1523. 1CO0 OE = xXLB¢ICoOL) =~ xd) 
1524. IF (OE .LEs. OP) GO TO 1000 
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IPTYPE = 0 
GO TO 25u 


BASIC VARIABLE GN RUW I EXCEEOS [TS UPPER BOUND 
OE = xX(1) — xual ICCLI 
IF (OE sLE~ OF) GO TG 1000 
LPTYPE = <1 


TROWP = I 
CONTINUE 

RETURN 

END 

SUBROLTINE OCHUZC 


SELECTS PIVCT CCLUMN JCOLP FOR CURRENT OUAL=SIMPLEX I[TERATION.« 
SETS JCOLP = O IF LP*PROBLEM AT CURRENT NODE IS INFEASIBLE. : 
CTFERWISE, CHOOSES JCOLP TO MAINTAIN PRIMAL-OPTIMALITY 


IMPLICIT REAL*®4 (AC yE-HyOpPyR—wyZ) » REAL*B (ByDeXeV) y 

INTEGER*4 (I=-N,Q) 

INTEGER*2 UHeKINBAS@LA,LEyIAeIE | 

INTEGER*2 PART, INCUMB, LVBNO,LVI0,1 GBND 

DOUBLE PRECISION E (1000) 

REAL A(500) 
COMMONR/BLOCK/ Z2TULZEy LZTOLP Vs ZTCOSTs ZTOLRI » ZTOL SM p QROy CMA, QBA QF Is 

wE Ge CBL » QA QPL pe QM 1s OZ ep Q] 9 QF» QNe QUy NRMAX »NEMAX, QB QC, 

QE pQh Qi se QU 2 QK s QM eQGyNTMAX 

COMMON/BLOCK2/ DFP ART (122) -REVBNOe INCVAL oe ICOL LI STLe I VAL, IOIRy 

NPI VOT, IP TYPE pKCOST, IFEASe LPART(L22)¢ITNCUMB(122), 

IVB8ND(500),1Vi0(500) ,fGBND( 500) j 

COMMON Ey XLB(122 dy XUBLL22) ¢B1(60) 4X1 60) e¥(60) »YTEMP (60) »USUM, DPRUD, ; 

DY »DEyDPy Ay ICNAME 12292) » NAME (20) »NTEMP( 20) SUMINF MST AT, q 

TOBJyIRGWP, IVING LVGUT¢ IL TCNT, INVERQs ILTRFRQGITSINVy IFFE Ze i 

JCOLP »NRUWy ACOL»NELEM, NE TA pNLELEMp NLETAyNUELEM yNUETAY 

LE 1L000)¢ £40500) ,LE(252) pL AC 122) sKINBAS(1L22)5JH(60) | 


JCOLP = 0 
TF (fLPTYPe .EQ. -1) GO TO i000 


LEAVING VARIABLE FALLS BELOW LTS LOWER BOUND 


OP = -1.E10 

O00 50C J=i,NCOL 

IF (KINBASiJ) «GT. O8 GU TO 500 

IF ((xUB(G) — XLB(J)) -LE. 2ZTULZE) GO TO 500 
CALL LNPACK( J) 

CALL FIRAN(1) 

IF (KINBAS(J) «EQ. -1) GO TO 200 

TF (¥(TROWP) + ZTGLPV) 22542254506 

IF (Y(TROWP) ~ ZTULPV) SO0U—72257225 


DE = YCLOBJI/¥(ITKOWP) 
{F (CE - OP) 5004500,250 
JCOLP = J 


CCNTIAUE 


IF (JCOLP .EQ. 0) RETURN 
CALL ULNPACK(JCOLP) 

CALL FIRANGL) 

[COL = JH(TROWP) 
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oa * ae 


- e 


1640. 
i641. 
1642. 
1643. 
1644. 
1645.6 
1645. 


ES PEE OCI TT TIT OCTET LT EE OY FEE EN EST LER FI PRT TRIN Ce 


AARMAAAAA 


2000 


DP = (KLE RGwWP) - KALBCICULIISYCLROWP) 


GO Tu 20uU | 
LEAVING VARIAbLE EACECUS [TS UPPER SOUND 


DP = LeEiG 

OG L£5CC J=leNeOl 

IF CK INBAS@CJ) .GT. 23 BD TO 190C 

IF (¢xtolu)d — xeBiJddd LE. ZTOL.ZE) GO TO 1500 
CALL UNPACK (YU) 

CALL FIRANCL) 


{F {KINBAS(U) CEUs -1) GL TU 1200 
tf (¥CEROwP) — ZTOLPV) £5UUe1 225,12 25 
IF (¥tIRGAP) © ZTIQLPV)? 122591225, 15C0 
DE = Y(LUBUI/Y (LRU) 

IF (DE = DP} 125Ue1300"-1 500 
JEGLEP = J 
DP = CE 
SCNT LAUE 
IF (JCCLP .EC. UV) RETURN 
CALL LNPACK(JCOLP) 

CALL FIRANGiS 

ICCctL = JH( IT RUWP) 

DP = (KCLRUWP) - XUBLICOLII/SY(LROMP ) 

F (KEINBAS(JCOLP) «EQ. OG) DE = DP + XLBIJCOLP) 
IF (KENBAStUCOLP) eEG. ~1) VE = OP + XUBLIJCOLP) 
NPIvOoT = 1 
RETURN 
END 


SUBROLTINE TESTX 


TESTS LP=GPTIMAL SOLUTIGN AT CURRENT NOOE FOR FATHOMING. 

FATHOMING OCCURS IF 

(1) LP PROBLEM AT CURRENT NGDE [IS INFEASIBLE (MSTAT = QN)3; OR 

(2) LPGPTEMAL CUJECTIVE VALUE (IVAL) .LE~} GKYECTIVE VALUE UF 
CURRENT LNCUMBONT SULUTIGN CINCVAL); OR 

(32) LP-GPTIMAL SOLUTION SATISFIES INTEGER RESTRICTIONS. 


IMPLICIT REAL#4 (ArC rE OyPeR-we Zl)» KREAL*S (BpDeXeVis 

i INTEGER*4 (CI-Ny\) 

INTEGER*2 SHeKINSASLA VLEs IA,IE 

INTEGER¥*®2 [PART, INCUMB,IVBND,iVID,fCBND 

DOUHLE PRECISION E1000) 

REAL £0500) 

COMMON/BLOCK/ ZTOL ZEe€TOLP Vs 2TCCSTe 2TOLRG » ZTOLSM ep UROe QMA, QBA pQF Ie 
1 QEOs UBL VAs QPL e OME 2 OL Qs QF QNs QU, NRMAX pNCMAXKy QBeUCye 
b GE pth eUbs 204 ORs OMe CGeNTMAX 

CCOMMOCN/GLOCK2/ LEP ARTI Le 2) sREVENOyINCVALS ICOL,LISTLe LVAL, IDI Re 

J NPL VOT,i2? TyPtRCOST, LFEAS, TPART(L22) 4° NCUMBLi22), 
2 I[VBNO(300),fVI01500} ,LG8NC 1500) 

COMMON ty XhLS(122)-XUBC122) 78460) 5X00) ¢ V1 60) -YTE MP (60) eDSUM, OPRUD, 


1 DY, Obs UP, Ay LCNAME Lede 2), NAME (20) +NTEMPE( 20) ¢SUMINE pMSTAT, 

2 TUBS ,TRGwWRe IVINe LVQUT SL TONT, INVFRQe TTRERO,VITSINV, IFFELs 

3 JCULP »NRU ws NCOL s NELEMs NE TA yNLELEMeNLE TAgNUELEM »NUETAY 

4 Tet L000) - 1A 45004 ,LE(252) pLALIZ2),KINBAS(1L 22) 5 5H(60) ‘ 


OP = x(1O08J) + ZTGLZE 
IVAL = LOINT(DP) 
IF (OP eLT. Of) [VAL = IVAL = 1 


Ql 


— Tom: - ~ DRESS SE 


a 


Lé47. IF (OMSTAT «ctw. QN) .0R, CLVAL eLE. INCVAL}) GO TO 2000 

1444. 

i649. € CUMPUTE INTEGER ANDO FRACTIONAL PARTS OF EACH BASIC VAR. 
65906. ( 

1651. 00 iOC f=L eNKUW 

L652 (PART(L) = TOENTCXCE) ¢ ZTOLZE) 

1653. NTEMPCL) = LTPART(I) 

1654. 1CO JFPART(I) X(t) —- FLUATINTEMPO1)) 

1655. C 

16966 ¢ CHELK FOR ALtE~INTEGER SCLUT ION 

165f. 

1658. OO 20C L=LeivkKOuw 

1659. IF (JtOL} eLE. NROW) GO TU 200 

1669. IF (OFPART{L? «GE. CTULZEI RETURN 

1661. 2CC CCNTINLE 

1662. ‘ 

loos, 12 SOLUTION ALL=INTEGER: INSTALL AS NEW INCUMBENT 

166%. C 

1665. IFEAS = 1 

1655-6 INCVAL {VAL 

L6CT. OO iGCC J=leNCOL 

1663. IF (K INBAS44)7260Cr TO0,1L000 

1669. 6éCC INCUMB (a) = IDINTECXUBI 5)? 

Lé70. GO luvv 

L671: TCC INCUMECI) = LUINTOXLBL)) 

ié?2. 16CC CONTINUE 

Lé 73% C 

1é74. oC 1LLEC [=1L,NRCw 

1675. ICOL = JH(IT) 

1676. INCUMECICOL) = [PARTI 

L677. 1cc CONTINUE 

1678. C 

1479. £ LURKENT PROBLEM NO LONGER OF INTEREST 

1680. C 

1681. 20CC MSTAT = QI 

1682. RETURA 

1683. ENO 

168%. SUBROLTINE PENLTS 

1685. C 

1686. C COMPUTES TUMLIN'S IMPROVED UP= AND OCWN-PENALTIES AND THE 
1687. c GCeERY PENALTY FOR EACH NONINTEGER BASIC VARIABLE. ALSO CHECKS 
1688. C FOR FURCED BRANCHES JN BOTH FASITC AND NONBASIC VARTASBLES. IN 
1689. c THE ABSENCE OF FURCEU BRANCHES GA BASIC VARTABLES, THe 
L1690< c BRANCHING VARIABLE [5 CHOSEN TC BE THE ONE WITH LARGEST 
1691. € ASSCCLATED UP= CK DUWN=PENAL TY. THE FORWARD BRANCH IS MADE IN 
1692. c THE VIHECTIUN OPPOSITE TO THE MAXIMUM PENALTY. THE NODE 
1693. C CORRESPGNUOING TC THE GRANCH IN TRE SAME DIRECTION AS THE 
1694. \e MAXIMUM PENALTY {S ADDED Tu THE LIST, TO BE EXAMINED LATER. 
1695. Cc THE BRANCHING PROCESS [TSELE TS CARRIEO CUT IN SUBROUTINE 
1696. C BRANCH, wHICH £S CALLED FROM SUBROUTINE PENLTS. 

1697. C 

1698. IMPLICIT REAL #4 (MyCgE=tyUypP yp Rowe Z) » REAL®B (Be aXe) 

1699. 1 INTEGER*& ({[=N,Q) 

1700. INTEGER*2 JHeKINBGAS pLAsL Er IAs lé 

i7Ol. INTEGER®2 TPART, INCUMK,IVBNO,1VI0,1CBND 

1702. OCUBLE PRECISION E1000) 

17C3. PEAL A(500) 

1704, REAL PUlEU) sPDI6OU) yPGl6U0) 

i705. COMMOCASBELUCKS L2ZTOL ZE,LTOLPV, LZTCCST, ZTGLRI + ZF OL SMe QROe OMA yg QBA pQF i + 
i706. L WED e OBL e GAs IPL e OMI yg QZ p QL se CFs UN» QUy NRMAX ¢NEMAKs Qb ede 
1707. 2 UE pO hp QL ye QU rQReQM eQGeNTMAX 


A ERR RIE SEEN, TD 


cod 


“ ET FF Per Eee 
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1708. COMMCR/BLUCKE/ OFPART(L22) ,KEVBNUsINCVAL,ICULysLISTL»,IVAL,IDIRy 


1709. 1 NPCVGT TP TYPE «KCOST, LFEAS, LOPART(L 22), 1NCUMB(i22), 
L719. 2 ivenUdSuvéslvL006500) »LOBNO( S00) 
py COMPON EskKLBEL22), AUE(L22)}55(60),X(60),Y(60) »YTEMP(60),0SUM, DPRUD, 
LFL2'. L UY, Ur yUP, Ay ICNAML bedded) e NAME (20) »NTEMPE 20) pe SUMINE » MSTAT, 
= 171L3-~ 2 [Obs,yITKOWP, TYIN, TL VOT, ETONT, INVER Qs LTRERQ,ITSINV, TFFEZs 
4 1714. 3 JCULPyNROW, NCULs NELEM, NE TA »NLELEM»NLETA,NUELEMsNUETA, 
EVES. 4 LE€LVOUD, 1A4500),LE( 252) pL ACA22),KENBAS(122),JdH(60) 
1716. DO tO t=1,NRKUnN 
Tit. IF {OFPART(E) oLT. 2TOLZE) GO TO § 
1718. PU(T) = Leko 
i7is. POCT) = ie ES 
I720:. PG(I) = LEG 
L721. Gc TG 10 
LIZ2. § Puctl = oO. 
1723: PDL) C. 
1724. PG{1) = 0. 
V2t25.~ 10 CCNTIAUE 
L726. C 
1727. DG 1OCe J=i,NCOL 
1728. IF (KINBAS(J) GT. 0) GU TO 1009 
1729. IF (OxXUbls) — XLG(I)) LE. ZTOLZE) CO TO 1000 
1730. CALL UNPACK(S) 
LT3l. CALL FIKANGLI 
LT32 IF (KINBASt(J) EQ. 0) GO TO 30 
Li33 s BO 20 =isNkOwW 
1734. ec y(t) = ~¥(1) 
tT35. Cc 
1736.4 c CHECK FOR FORCEG BRANCH ON XJ 
1737. 3C IF (J ~LE. NROW) GC TO 50 
1738. DP = x(lUBJ) -— YC LOB) + ZTOLZE 
1739. IVAL = IOINT(DP) 
1740. IF (DP LT. O«) IVAL = IVAL = 1 
1741. IF (ivAL -GT. INCVAL) GO TO 50 
L742. [DER = 2*KINBAS( J) + L s 
1743. If (ICTR e€Q.s -i) REVBND = SNGLOUXUB(J)) 
1744. [TF CICIR «EQ. 2) REVBND = SNGLIXLBI4)3 
1745. ECOL = cI 
; 1746. CALL ERANCH 
5 1747. GO TC 1000 
1749. C 
1749. £C OC 500 I=L yNROw 
1750. [IF ({JeCL) wzlL&E. NROw) GU TO 500 
LT5L~ LF (OFPART(I) AT. ZTOLZE) GG TO 590 
PSs Cc 
1753-6 c COMPUTE UP PENALTY FOR X(T) 9 XJ 
: i754. 1CC LF (¥(1) «GT. <ZTOLPV) GO TU 200 
5 Krece OE = Y({IOBY)*(OFPARTIN ~ Led/¥ CT) 
1756. IF (OF .tTe YC 108BJ)) DE = YI {OBI 
L757. IF (OE ot Te PUIE)) PUdl) = DE 
1758. GO TG 300 
1759. .< 
Pt 1760. C COMPUTE DOwh PENALTY FOR KOT)», XJ 
LTél. 2CC fF {VULl) sh Ts ZTULPYI GO TO 300 
1762. DE = VYIIUBJ)*DFPARTOLI/YC1) 
1763. TF (DE .iT. Ye lOBIdd OE = Y(ITOBJ) 
‘ 1764. SF (OE LLT. POUL)) POEL) = DE 
‘ 1765. C 
1766.6 Cc COMPUTE GOMORY PENALTY FOR XCI), XJ 
oY 1767. 3CC OP = CASS¢Y4i)) 
1749. NTEMP (1) = IDINT(UP) 
| a G 
b | 7 


Th PE 


a 


EY EL, I SE IES SECO TY sie NES FC rr — ¥ 


i S 


- 


1769. 
L770. 
L772. 
1772. 
1??? 
L774. 
1775. 
1776. 
Lett. 
1778. 
177s 
1780. 
178l. 
}782- 
1783. 
1784. 
i785. 
1786. 
1787. 
17838. 
1789. 
1790. 
L791. 
17926 
1793. 
1794. 
1795. 
1796. 
1797. 
1798. 
1799.6 
1800. 
180l. 
1802. 
1803. 
1804.6 
1805.6 
1806. 
1éc7. 
1808. 
1809. 
1810. 
18il. 
18i2. 
1813. 
1814. 
Léels. 
Lél6. 
L@l/7. 
1815.6 
1619. 
1820. 
1821. 
a 1622. 
ao 1823. 
. 1824. 
. 1825. 
1826. 
1827. 
1828.~- 
1629. 


20CCc 


Cc 
C 
30CC 


36CC 


37CC 


ee RT rrr Eee Ser 


OP = CP ~ FLUATCNTEMP(1)) 

IF €(CP -LE. LZTOLZE) OR. (DP «GE» 1.--ZTOLZE)) GO TO 50U 
fe VOR) sks Co} DP = Ils = OP 

[fF (OP .oT. OFPARTILI) GO TO 310 

OE = YCLUOBS)I*OFPART(1)/0P 

GO TO 320 

DE = YUIGBUI*l1l. — DFPART(D)I/¢01. - DP) 

TF (DE «tT.» PGtI)) PGI) = DE 


) CONTINUE 
© CONTINUE 


COMPUTE LARGEST GOMGRY PENALTY ANDO TEST FOR FATHOMING 
PEN = O. 
OO 20CC L=b_eNRCa 
IF (JCI) elt. NRUR) GO TO 2000 
1& ¢PG(h} «GT. PEN) PEN = PGI) 
CONTIAUE 
OP = x(I0BJ) — PEN # ZTOLZE 
IVAL = I[DINT(OP) 
IF (OP ti Te O-} IVAL = IVAL = 1 
IF (1VAL «Gt. INCVAL)I GO TO 3000 
TOIR =u 
RETURN 


PROSLE* NOT FATHGMED: CHECK FOR FORCED BRANCHES GN X(t) 

NTEMP(2) = G 

OC 39C0 L=1,NACw 

IF (Jrtid .LE. NROw) GO TO 3900 

{F (PUCL) ~GT. POC I)) GO TO 3600 

OP = x(1GBbu) = PO(I) + ZTULZE 

NTEMP Cid = LOLNT(OP) 

IF (OP «LT. Od NTEMP(LI = NTEMFO1) = 1 

IF (NTEMP(1) «GT. INCVAL) GO TO 3900 
FORCED BRANCH UP ON X(T) 

IVAL = NTcMP(1) 

LOLR = =1 

NTEMP(L) = IPART{I} + 1 

GC TO 37u9 


DP = x(1GBJ) = PUlLT) + ZTOLZE 

NTEMPi1L) = IOINTI(OP) 

fF COP «kT« Oc) NIEMPCLI = NVEMPC2) = 2 

TF (NTEMP(i) «GT. INCVAL) GSU TO 3900 
FURLED BRANCH DOWN ON X11) 


[VAL = NTFEMP(L) 
1OtR = 1 

NTEMP(1) = IPART(I) 
TROWP = I 


ICOL = JHCIROWP) 

REVBNC = FLOATINTE P(L)) 
NTEMP(2) = 1 

CALL PRANCH 

CCNTIALE 

IF (NTEMPL2) «GT. C) GU TO 5000 


NG FORCED BRANCHES: CHOOSE BRANCHING VAR. AND DIRE.) 1m 
PEN = QO. 
TROwP = O 
DETERMINE BASIC VAR. X(IROWP) WITH MAX. UP= OR DOM N-PENM 
DO 49C0O I*1lsNKOw 
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/WO-A038 322 STANFORD UNIV CALIF SYSTEMS OPTIMIZATION LAB F/6 9/2 
COMPUTER PROGRAMS FOR DECOMPOSITION IN INTEGER PROGRAMMING. (U) 
SEP 76 G A KOCHMAN N00014-76-C-0418 
UNCLASSIFIED SOL-76=-20 ARO~122715. 1 3am Nt 


| 1.0 ‘ Ws es 


= i: 2 
—— a 


= bs 


yu 
—= be 
WWLZS YA fs 


MICROCOPY RESOLUTION TEST CHART 
NATIONAL BUREAU OF STANDARDS -1963-/ 


1830. TF (JtCLla «LE. NROW) GO TO 4900 


ia3r. tf CPLEL2 «GT. PUlII2 GO TO 460€ 
1832. IF (PEEL) wLE. PEN) GO TO 4900 
1A33a, PEN = POtE} 
1834. TROWP = I 
1835. INDIR = —1 
<q L836. NIEMPiL) = TPARTII} + 1 
Le37. PEVBNC = FLOATINTEMP(1)) 
1238. GO TO 4«90C ] 
1839. 46CC IF (PULL) «LE. PEN) GO TO «900 | 
1840. PEN PULL) 
1e41, TROwP = f | 
1842. TOiR 4 | 
1843. NTEMP (LE = IPART(L) | 
of 1844. REVBNC = FLOATINTE MPEL2D: 
1845. 4960 CONTINUE 
1246. IF (1ROwP .GT. 0} GE TO 4950 | 
| 1847. c EACH UP= AND OOwN=PENALTY 2.60. GO. (DUAL-DEGENERACY). CHOOSE 
1848.4 C ANY NUNEINTEGERK BASIC VAR. AS BRANCHING VAR. 
L£49. OC 4910 [ROwP=1i,NRCw 
1850. If (ublIROwPS eLE. MROW) GO TO 4910 
135i. IF (OFPART(IRGW?) .GE. ZTOLZE) GO TO 4920 
1852. 4510 CGNTINY 
1853. 492C PEN = PUCIREWPR) 
1854. Lik = 
1655. NTEMP(1} = FPART (1RGwWP) 
1856. PEVBNC = FLCATINTEMPOELS3 
1e57. 495C ICOL = JHC IROWP) 
1858. OP = X(10BU) = PEN + ZTOLZE i 
1859. NTEMP(1) = IDINTLOP) i 
1860. TF (OP .LT. On} NE EMP(1L) = NTENPCL) =- i | 
186L. IF €TVAL .GT. NTEMP{L)) IVAL = NTEMPCL) 
1862. C BRANCH GN CHOSEN VAR. | 
1863. CALL ERANCH 
1864. 50CC (& (ILTR «EQ. —k} IPFYPE = O 
1865. If €1CIR .EQ. 1) LPTYPE = =] 
if66. RETURS 
1867. ENO 
1868. SUBROLTINE BRANCH 
1869. € 
187. C PRANUHES UN VARIABLE XtICOL) AS DETERMINED IN SUBROUTINE PENLTS 
1AaT!. c 
1872. IMPLTOCLT REAL®S fA, CsEmHyCePyRmheZ) » REAL®B (BeDyXeY) » 
1873. L INTEGER®4 (IN, Q) 
1874. INTEGER*2 JHyKINGAS iAgLEs IA if 
1875. INTEGER #*2 (PART, INCUMB, IVBNO,IVIO~2iC8NO 
1876. DOUBLE PRECISION €£€1000) 
1877. REAL £4500) 
1878. COMMER/BLUCKS £TOL ZE,ZTOLPVe ZYCOSTs ZTOLRU e ZTOLSM e QROs QMA QBArQFI ; 
5 1879. 1 QE y CAL UA QPL es QM yg QZ 4 Ql se QF e QNe QU; NRMAX pNEMAXe QB2 QC, 
Ss 1880. € QE +H o Wh» IOs0R 9 OM eGGe NT MAX 
1881. COMMGA/BLUCK2/ DEP ART CIZ2) sREVBAND eT NCVAC SI COLeLISTLe IT VAL,IDIR, 
| 1882. i NOLVOT,EP TYPES RCGSTs LFEAS, TPART(1L22), INCUMB( 122), 
* 1663. 2 i VB8NDL500)-.1VE015002 »fGBND( 500) 
‘| 1884. COMMON Ey XLGCLZe!, XUBLL22) +B (60), X1 6G), YL60) » YTEMP(60) ¢DSUM, DPROD, 
1885. l DY pV eD Py Ay LCNAM( £2292) 9 NAME (20) pNTEMP( 20 Dp SUMINE MST AT, 
t 1886. 2 [OBS LROWP, TVEN. LVOUTe IL TCNTe INVERQeITRERQ SI TSINV,: LFFE Ze 
: L887. 3 JCOLP, NRO Ww, NCOL » NELEM, NETA ,NLELEM,)NLE TAsNUELEM  »NUETA, 
% 1888. 4 TEL LOOT» FA 500), LE(252) pLACL22) eKINBAS(L 22), JNH(60) 
1889. c 
? 1890. C COL TNOEXES BRANCHING VARIABLE CHGSEN 


¥D 


ES ee ee EEE Tan: Cw eT nh eae aie te ee eS 


189i. 
1392. 
18923. 
1894. 
1895. 
1896. 
1897. 
1e98. 
i899. 
1900. 
1901. 
1902. 
1503. 
1904. 
19C5. 
1906. 
1907. 
19C8. 
1509. 
1910. 
19ll. 
1912. 
1S13. 
1914. 
1915. 
1S$16. 
1917. 
1$18. 
1S19. 
1920. 
1S2l. 
1922. 
1923. 
1924. 
1925. 
1926. 
1927. 
1$28. 
1929. 
1930. 
1$31l. 
1932. 
1933. 
1934.6 
1935. 
1936. 
1937. 
1938. 
1939. 
1940. 
% 1941. 
1942. 
1543. 
¥ F 1944. 
‘| oo 1945. 
1946. 
! 1547. 
* 1948. 
% 1949. 
* 1950. 
W 1951. 


as 


, 


OaoOn 


aa 


RAAKOA 


50 


1€0 


LDIR INDICATES BKANCHING OLRECTION CHOSEN 


ADU UPPOSITE OILKECTION 10 LIST 
LEISTL = LIST + 1 
IF (ICIR «EQ. —L?d IVBNOGLISTL) = IDINTEXLBC(ICOL) + ZTOLZE) 
TF CICIK se. 1) TVBND(LISTL) = LOLNT(XUBCICOL) ¢ ZTOLZE) 
IVIC(LISTL) = IOIR *ICOL 
TOBNO(LISTLI = LVAL 


REVISE BOUNDS GN BRANCHING VARIABLE FOR FORWARD DIRECTION 
IF (ICIR sEWe ~1) XLBCICOL) = OBLE(KEVBND) 
IF (I1CIR .EQs 1) XUBLICUL) = OBLE(REVBND) 
RETURA 
ENO 
SUBROLTINE BKTRAK 


BACKTRACKS TO SELECT A PROMISING (UNFATHOMED) NODE FROM THE 
LIST OF STORED NODES. LAST=IN“FIRST=OUT (LIFO) SELECTION RULE 
IS EMPLOYED. 


IMPLICIT REAL¥4 (AsCsE=-HyCePe RoW, 2) » REAL*B (BeDeXeV) ye 

1 INTEGER*4 (1-NeQ) 

INTEGER*®2 JHeKINBASsLAyLE, IA IE 

INTEGER*2 IPART, INCUMB,I VBNOeIVI0,iCBND 

DOUBLE PRECISION € (1000) 

REAL A(5U0) 

COMMGR/BLOCK/ ZTOL ZE,yZTOLPV, ZTICGST» 2ZTOLRJ » ZTOLSM yQRO»s QMA, QBA QF I» 


1 GEUe CBiL 2 QA ys UPL» QML, QZ 2 QI s QF e QNe QUy NRMAX pNEMAX» QBe QCy 
2 CE QR e Qh s Q02QKe UM eQGy NT MAX 

CCMMON/BLOCK2/ DEP ART(122) PREVBND eg INC VAL eg ICOL,LISTLe»IVAL IOI Re 

1 NPLVCT, IP TYPE se RCGST, IFEAS, 1 PART (122), INCUMB(i 22), 


IVBNO(500),1V10(500) ,108N0( 500) 

CCMMON Ep Xh861 22)» XUB(122) B60) e X€ 60)e Y( 60) » YTEMP (60 ) eDSUM, DPROD, 
DY,DEeDP, Ay [CNAM( 12292) » NAME (20) »NTEMP( 20 ) > SUMINE pMSTAT, 
1OBJ,ITROWPs, IVIN» I VOUT, LTCNT, INVFRQs IL TRERQsITSINVs IFFEZ, 
JCULP yNROWs NCOL,NELEM, NE TA »NLELEM,NLE TAyNUELEM pNJETA,y 
1E(1000); 1A (500) ,LE( 292) pL A( 122) eKINBAS(1 22), JH(60) 

NTEMP(3} = O 

IF LIST IS EMPTY, RETURN (COMPUTATIONS COMPLETED) 

IF (LISTL «EC. O) RETURN 

iF (ICBNO(LISTL)I «LE. LNCVAL) GO TO 2000 


fwenNe 


GET NEAT NODE FRUM LIST 
TcOL = IVIC(LISTL) 
tF (1CCL -i Te 929 GO TO 100 


NTEMP(L) IDINT(XLB(ICOL) + ZTCLZE) 
NTEMP (2) IVBND(LISTL) 

XLBCICCL) = xXUBC(ICCL) + Ls 

XUB(TCOL) = FLGAT(ATEMP(2)) 

IF (KINBAS(ICOL) «GT. 0) GO TG 1000 
KINBAS(ICOL) = O 

NTEMP(3) = 1 

GO TC 1000 


“wow 


{cOL = -iCGL 

NTEMP(1) = LOINT(XUBLICOL) + ZTOLZE) 
NTEMP(2) = [VBNO(LISTL) 

XUBCICCL) = XLB(ICCL) = 1. 

XLBCICCL) = FLCAT(ATEMPI2)) 

IF (KINBASCICUL) «GT. 03 GO TG 1000 
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> Pe 


10cc 


an 


86CO 


87Co 
87EC 


eecc 
90cc 


AAANDABDAAO 


KINBAS{ICOL) = -1 
NTEMP(3) = 1 


IVIGCLISTL) = -fVICCLISTL) 
IVBNOCLISTL) = NTEMPO1) 
ICBNO(LESTL = ~10000 


UPCATE X 
IF (NTEMP(3) .EQe C) RETURN 
CALi SHIFTR(1,3) 
00 9000 J=1,NCCL 
IF (K INBAS (J) } 860028700, 9000 
OE = xUBIJ) 
6G TO &75U0 
DE = XiBis) 
tt = LAGS) 
KK = LACJ+lL) - L 
OO 88CC [=tLbLsKK 
{R = fAli) 
YCTR) = YCIR) = ACTI*DE 
CONTINUE 
CALL FTRAN(GLI 
CALL SHIFTR4492) 
RETURN 


NOCE FATHOMED: UPDATE VAR. BOUNCS AND BACKTRACK AGAIN 


ICOL = IVIO¢4LISTL) 
IF (CCL «tT. 0 GC TO 2100 


NTEMPGL) = IVBND(LISTLI 

{F (KINBAS(ICOL)) 20109209022050 
NTEMP(3) = 1 

OP = XUB(ICCL) = XLBCICOL) 

OY = FLOATiNTEMP (12) = XUBLICOL) 
IF (OP «LT. DY) KINBAS(ICOL) = 0 
XUB(ICOL) = FLOAT( NTEMP(1)) 

GO TO 3000 


{cOl = -ICOL 

NTEMP(L) = I[VBND(LISTL) 

[F (KINBAS(ICOLI) 215092110,2150 
NTEMP (3) = 1 

OY = XLB(ICGL) - FLOATINTEMP(1)) 
OP = XUBLICOL) = XLBC(ICOL) 

[F (OP «LT. UY) KINBASCICOL) = ~1 
XLBCTCOL) = FLCATCNTEMP(1)) 


LiSTL = LISTL = Lb 
GC TO 50 


END 
SUBROUTINE ALOCTE( IPAR,IRHS) 


SOLVES MASTER PROBLEM (CONCAVE=SEPARABLE INTEGER PROGRAM) & 

REALLOCATES LINKING RESOURCE AMONG UNFIXED SUBPROBLEMS 

##OEREEEDESCRIPTION OF PARAMETERS * #4 48 8K4 

IPAR = PARAMETER INDICATING WHETHER LAST BRANCH WAS IN FORWARD 
CIPAR = 1) OR BACKTRACKING OLRECTION (IPAR = 0). 


IRHS = AMOUNT OF LINKING RESOURCE LEFT (USED WHEN IPAR = 1) 
RRORRER ETE TAKES SEEK HE 165448 6 HERE ES ES EEE 
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WEEN LPAR = Ly MASTER PRUGLEM RECPTIMEZED BY REALLOCATING IRHS, 
STARTING &ROM PREVIGUSLY GPTIMAL SOLUTLON TO MASTER PROBLEM. 
WHEN ITP Ak = Gy MASTER PROSGLEM RESOLVEG FROM SCRATCH (1.eEes ALL 
B(J) SEF Ta CUWER BUUNDS [BC Bds) INITIALLY.) 


IMPLICIT KEAL*®S (AyLskeryDyPrK~ ing LI , REAL*B (BelieXeV ds 
lL INTEGER*S CI~N,U) 
INTEGER*®Z GHeKRINGAS gL byLte LAG LE 
INTEGER*2 iPAKT, INCUMBs IT VBND,I VID, LE CBND 
INTECER#2 Ils Awe L BID,IBSNOeILZBND 
DOUBLE PRECISION & (i000) 
REAL A500) 
COMMON/oLULK/ LEO Ce LZTOLP Vy, LTICCST, ZFGLRI»y ZTOLSM ORO, QMA, QBA QF I, 
l CEUr CEL UA UPL ep OMI, OL dle Fe GN» QU, NRMAX pNEMAX, QB, QC, 
2 WE patie Qh ple WK pM gp OG, NT MAX 
COMMON BLOCK 2/ DEPART Li 2ei rREVOND ye INCVAL, ICOLsLISTLeI VAL + IDIRye 
1 NPLVCT, LPT YPEsKUCST, LFEASs i PART(L 22) 9 I NCUMB(i22), 
2 [¥6N0(500;3,l¥1u0500),108N01500) 
COMMON/BLUCK3/ KLAPDACD giddy ZMAUT( LU) -2dBARG1LO) pNSUBS SIZING 
LI ZBARYTOOM, BLL yNIFIXgsFLASMe LO psFL XC LO)» NSOLILO) yNLAMUA(10)» 
ZKSEGELC) pL BSTARL 200210) + LEUE(10 1 FBLBILO) ¢ LBPCSL LOD, 
ZIBUSEC (200210) e125 TAR( 200,403 ,18101 200), 18 BNDi 200) sf Z6ND(200) 
COMMON © ALEC 2c h, XUB (1221-68660), X1 602, ¥(60) 2 YTEMP(60) »USUMs OPROD, 
DY sDE yO, A» ICNAM( 12292) y NAME (20) ¢NTEMP(20),SUMINE pMST ATs 
1OBd,LROwPy TVINe T VOUT SL ITCNTs INVERQyITRERQSLISINV, IFFE Zs 
JCOLP eNRUWe NEUL e NEL EMe NETA sNLELEMeNLE TAPNUELEMsNUETAY 
TECLOGV)s LA C5001 LE( 2592) gLALLY2) »KINBAS(1 22)¢J5H(60) 
TEST WHETHER LAST BRANCH wAS TN FORWARD GR BACKTRACKING OIREC— 
TICN 
(1P4R EQ. OF GC TO 50 
LAST BRANCH #®AS IN FURWARD UIRECTION: INITIALIZE B(U) TO 
PREVIOUSLY UPTIL MAL SULUTIUN 
O° 1C J=ighSUBS 
LAST = NSOL(U) + 1 
TF (SFIX(S) 2GT. 0) LAST = JFIXGJ) 
NTEMP(J) = IBSTARULAST¢J) 
GO TC 2v0 


LAST BRANCH WAS IN BACKTRACKING GIRECTION 
SET ALL Shu) = TBLB( Ud AND [Red = AMT OF RESOURCE LEFT 
INCVAL = -i0U0U 
IRHS = Ib 
90 9C J=leNsuBSs 
{TRHS = IRHS = ibiLo i) 
IF (IRHS LT. OF RETURN 


OO 13C J=1l,NSUBS 
IF (JFIX(CJ) «GT. 0) GO TU 130 
ZJBAR(U) = ZNAUT( 5) 
LAST = NEAMUALU) + 1 
OO 110 K=é,LAST 
KM1 = K = 1} 
TF (fO@P(Keu) .GT. [BL3is)I) GO TC 120 
LLC ZJBAR (SU) = LUBAR (CU) * RLAMDACKMI, J) FC IBPUK,J) - TBPCKMi,J)) 
KSEGO4) = LAST 
GO TO isv 
1zC KSEG(4) = KML 
ZIBAR LY) LIBAR (J) + RLAMDACKM1, J) FCT BLBC J) =— TBP(KM1,J)) 
130 NTEMP (Cu) T@L ets) 


ALLOCATE: CET LAKGEST UP=SLOPE 
gR 


$A re Deptt hey tos 


2CC RLMAK = —1le 
00 22C J=leNSUBS 
IF (JFIX(J) -GT. 0) GO TO 220 
TF (NTEMP(J) 2EQe IBUB(J)) GO TO 220 
K = KSEG(J) 
IF (RLMAX .GE. RLAMDA(KeJ)) GO TO 220 
RLMAX = RLAMDAIKsJ) 
JSTCRE = J 
CONTIALE 
IF (RLMAX .LEe ~0.5) GO TO 1100 
INCREMENT CORRESPONDING BJ) 
K = KSEG(JSTORE) 
KPL = K¢ | 
TOELTA = IBP(KPL,JSTORE) - NTEMP(JSTORE) 
IF (LBP(KPLeJSTORE) «GT. [BUB(JSTORE)) 
IDELTA = IBUB(JSTORE) — NTEMP(JSTORE) 
[RHS = IRHS = IDELTA 
NTEMP(JSTURE) = NTEMP(JSTORE) # [DELTA 
ZIBAR(ISTURE) = LIBAR(JSTORE) + RLAMDA(K,JSTORE) *IDELTA 
TECNTEMPCSSTORE) E Co LbP(KPLe JSTCRE) IKSEG( JSTORE) =KSEG (JSTORE) #1 
[F (ERhs LE. OF GG TU 1000 
Gc TC 200 


END OF ALLCCATION 
NTEMP(JSTORE) = NTEMP(JSTORE) ¢ IRHS 
ZJPARCISTURE) = ZIBAR(IJSTORE) + RLAMDA(K, JSTORE) *I1RHS 
K = KSEG(JSTCRE) 
TFUNTEMP(JSTORE) LT o1BP (Ks JSTORE) 1K SEG( JSTORE)=K=1 

INSTALL OPTIMAL ALLOCATION 
ZBAR = LTOLZE 
DO 1110 J=1,NSUBS 
TF (JFEX(J) GT. 02 GO TO 1105 
LAST = NSOL(J) # 1 
{OSTARILAST eo Ji = NTEMP( J) 

ZBAR = ZBAR + 2uBAR (J) 
GO TO 1110 

K = JFIX(J) 

IDELTA = IZSTAR(K, J) 
ZBAR = ZBAR + IDELTA 
CCNTIAUE 

INCVAL = INT(ZBAR) 

IF (ZEAR wi Te O71} INCVAL = INCVAL = L 
RETURN 

END 

SUBROLTINE COMCHK( J,K) 


COMPARES CURRENT ALLOCATION (FROM SUBROUTINE ALOCTE) wITH 
PREVIGUSLY EXAMINED ALLOCATIGNS IN EACH UNFIXED SUBPROBLEM 
TO DETERMINE IF OPT. SOLe CORRESPONDING TC CURRENT ALLOCATION 
1S ALREACY KNOWN FOR ANY SUB PROBLEM 
ee aeeee ODE SCRIPTION OF PARAMETERS # #4884046 
J = PARAMETER IADEXING FIRST SUBPROBLEM FOUND FOR WHICH OPTIMAL 
SOLUTION CORRESPONDING TC CURRENT ALLOCATION IS ALREADY 
KNUBN (OUTPLT) 
K = PARAMETER LNOEXING THE PREVIOUSLY EXAMINED ALLOCATION IN 
SUBPROBLEM J WHICH LEAOS TO SAME OPT. SOL. AS wOULD 
CURRENT ALLOCATION (OUTPUT) 
SROSHS HS FE SAESS SHE EEE SS SESEEEESEEE SS O9498 


AABANAAANAAABDAARDA 


IMPLICLT REAL#4 (AeCrE—HeOpPoR—teZ) » REALSS (BpDeXeV) 
1 INTEGEK*4 (I-N,Q) 
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ST oe eae 


» 
. 


Daily ti Saat ik tl nti a to a Lei cn ting 


21356 INTEGER*2 [ZSTAR, 1610, 188NO¢ I ZBND 


2136. CCMPCA/BLOGK3S/ RLAMDA(90510), ZNAUT( 10) ¢ZJBAR (10) sNSUBS,I ZINC» 
2137. LIZBAR,LDUMy LBLLyNIFIXe JE LXSMe 1B pJFLX( 103 »NSOL( 10) ¢NLAMODALLOI s 
2138. 2KSEGI10)¢ LBSTAR( 206,109)» 18UB( 10)», IBLB(10), 1BP(51 910), 
2 2139. FEBUSEC(200 9 LO) 91 ZS TAR( 200 91G) 1 B10( 200) » IBBNO( 200) ¢1ZB8ND(200) 
2140. DG 1000 J=1,NSUBS : 
2141. LF (JFIX(U) GT. 0) GO TU 1000 
2142. IF (NSOL(J) «EQ. 0) GU TO 1000 
2143. L = NSCL(U) 
2144. LPL =te#l 
2145. DO 5OC K=lek 
2146. c TEST ALLOCATION AGAINST UPPER BGUNCS OF 
. 21476 C bly IN KTH SOL. OF SUB J 
2148. IF (IT@STAR(LPLl ed) oGT. LBSTAR(KeJd)) GO TO 500 
2149. C TEST AGAINST LOWER BOUNCES 
21506 IF CIBSTAK(LPL, J) Lh TeLBUSED(KsJ)) GO TO 500 
2151. C 
2152. C ALLOCATION DOMINATED 
2153. 1D0M = 1 
2154. RETURN 
2155. ts 
21566 5CO CONTINUE 
2157. LCCC CONTIALE 
21538. C 
2159. C ALLOCATION NOT DOMINATED 
2160. 100M = uv 
2161. RETURN 
2162. ENO 
21636 SUBROLTINE LDDATA( J) 
2164. C 
2165. Ce LOADS DATA FOK SUSPROBLEM ¥y INTO APPROPRIATE STORAGE LOCATIONS 
2166. Cc FOR SULUTION bY SUBROUTINES NORMAL (LP) AND BANODB (ILP) 
2167. Cc 
2168. IMPLICIT REAL*4 (AyCsE=HeOyP,R—myZ) ¢ REAL®B (ByDeXeV) 
2169-6 1 INTEGER*®4 (1T=NeQ) 
2170. INTEGER*2 JHeKINBASpLAyLEy IAs LE 
2171. INTEGER*2 IZSTAR,1 B10, 1B 6NU +i 26ND 
2172. INTEGER*2 LAS, LAS 
21736 DOUBLE PRECISION E (1000) 
2174. REAL A(500) 
2175. COMMCA/BLOCK3/ RLAPDA(50910)¢ZNAUT( 10) 9 ZJBAR (10) »NSUBS,I ZINC» 
2176. LIZBAR y {DOM, [BLL yNJFIX,» SF LXSMs £8 pJFI XE LO) pNSOL( 10) »NLAMDA(10) > 
2177. 2KSEG( 10), LESTAR( 200910) [BUB( 1009 1BLB(10) ep IBPUSL lO)e 
2178. BI BUSEC(200 010) 91 ZS TAR( 200,10) 51 BI Gl 200)» LBBNO( 200) » I ZB8ND( 200) 
2179. CCMMON/BLUCK4/ XLBS(50,10) +XUBS (50% 10) pAMATRS( 1000) ¢RHS( 20910), 
* 2180. LNROWS (10) pNCULSC 10) pUFIRSTO LL)» TASC 1000) pL AS( 50, 10) 
2181. COMMGN Ey XLB(L22) y XUB(122) 18160) 6X0 60) 4 V (60) »YTEMP (60) »DSUM» OPROD, 
2182. l DY DE DPy Ay ICNAM( 12202) e NAME (20) »NTEMP( 20)» SUMINE ¢ MSTATe 
4 2183. 2 ITOBU pIRGWP, LVINy 1 VOUT eI TCNTs INVERQs ITRERQ eI TSEINV, IFFEZe 
2184. 3 JCULP »NROW,s NCGL » NELEM, NE TA pNLELEM» NLE TA pNUELEM »NUETAS 
{ 2185. 4 1E€1000), £4 (500) pLE( 252) pLACAZZ) ¢KINBAS( 122) 9 JH(60) 
¥ 2186. NCOL = NCOLS(y) 
al 2187. NROW = NROWS(J) 
> 2188. NELEM = JEIRST(J+1) — JFIRSTOU) 
t ‘3 2189. LL = JFIRST(S) = 1 
3 ~ 2190. c LOAD AglAy LA XL8 + XUB 9B» JH eK INBAS 
4 C 2191. O00 10 f=L,yNELEM 
* 2192. A(T) = AMATRS(uL +L) 
2193. 1C TA(L) = LAS(LLeL) 
2194. 00 20 K=iyNCUOL 
2195. LACK) = LAS(K,J) 
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Th Pe OR 


i$ 


XLBUK) ALBSEKs J) 


2197. 2C XUB(K) = XUBSi Ky Jd 
2193. LACNCCL+id = NELEM ¢ 1 
2199. Bd1) = Up 
2200. LL = KSGLGV) + 1 
< 2201. B(2) = FLOATCLESTARGLL Jd) 
7 2202. Lt = AROW — 2 
2203. OO 40 i=ieht 
2204. 40 B(l*ed = GBLECRHSCL,5)) 
2205. 00 $0 [=1,yNROW 
2206. JHET) = £ 
2207. SC KINBAS(I: = i 
2208. LL = NRUW * 1 
2209. OO 60 T=LLyNCUL 
2210. €0 KINBAS(1) = O 
22li. ITCNT = O 
2212. INVFERO = NROW 
2213-6 RETURN 
2214. END 
2215. SUBROLTINE GETLBD( J) 
2216. Cc 
2217. c CCMPARES CURRENT ALLOCATION IN SUBPROBLEM J WITH PREVIOUSLY 
2218. Cc EXAMINED ALLUCATIONS IN QRDER TO DETERMINE AN INITIAL LOWER 
2219. € BOUND ON THE MAXIMAL OBJECTIVE VALUE IN SUBPROBLEM J, 
2220. Cc CCRRESPGNOLNG TC CURRENT ALLCCATION 
222L. ¢ 
2222-6 IMPLICIT REAL®G (AsCeEmHy GePeR—-WeZ) » REAL*®B (BsDeXeV)e 
2223. 1 INTEGER*4 (I1-NeQ) 
2224. INTEGER*®2 JHeKINBASyLAeLEs Ae IE 
22256 INTEGER*2 IPART, INCUMB, [VBNOe1V10,1CGBND 
2226. INTEGER*2 IZSTAR, IL BIDsIBEND,IL2ZBND 
2227. OQOUBLE PRECISION € (1000) 
2228. REAL Al500) 
2229. COMMON/BLUCKZ/ OFP ARTI(122) ,REVBNO,sINCVAL, I COL,LI STi st VAL,IDIR, 
2230. 1 NPI VOGT, I PTYPE »RCOSTs IFEAS, IPART(122),1NCUMBI(122), 
2231. 2 IVBNO(500),LV10¢ 500) ,LOBND{( 500) 
2232. COMPCA/BLUCKS/ RLAPDAI50_10)»5 ZNAUT( 10) ,ZJBAR (10) sNSUBSyIZINC 
2233. LIZBAR ¢ IDUM, SBLLyNIF IA, JF IXSMe1B gp JFIXI1L0) sNSOLU10),NLAMDA(1O), 
2234. 2KSEG( 10), 1 BSTAR( 200510), 18U8(10),1BLB(10),1BP( 515910), 
22356 ZEBUSEC (200 210) pL ZS TAR( 200910) 51 B1D1 200) » IBBND(200),128N0(200) 
2236. COMMON E,XLBIL 22), XUB(122) 9B460)5X(60)¢Y1(60) » YTE MP (60) »OSUM, DPROD, 
2237. Hy DY »DEe DP, Ay ICNAMI 12252), NAME (20) -NTEMP( 20) ,SUMINE »MSTAT, 
2238. 2 LOB J ,TROWP, IVINe LVOUTe ITT CNT, INVFRQsITRFERQ,ITSINV, IFFEZe 
2239. 3 JCOLP sNROW, NCUL» NELEM» NE TA eNLELEM pNLE TA,NUELEM,NUETA, 
2240- 4 TECi 000), 14 (500) e¢LE( 2522 LAC 122) eKINBAS(1 22) 6 JH(60) 
2241.6 INCUM@8(i) = -10000 
2242. KSTCRE = O 
22436 Lt = NSOL (J) 
& 2244. IF (LE «EQe O) RETURN 
& 22456 NEW = Le + 1 
2246.4 Cc SEARCH PREVIOUS ALLUCATIONS FOR BEST LOWER BOUND ON ZJ 
2247. DO 100 K=1i,eLb 
¢ 2248. TF CTNCUMBGL) GE. IZSTAR(K,J)) Gc Ta 100 
| 2249. IF {(TBUSEC(K,J) .GT. [8STAR(NEW,J)) GO TO 100 
2250. G Blu* >= KTH Bly: YUPOATE I[NCUMBCL) 
} 2251. INCUME(1) = IZSTARUK,J) 
x 2252-6 KSTCRE = K 
& 2253. 100 CONTINUE 
bs 2254. G 
. 2255.4 C KSTORE INDEXES THE PREVIOUSLY EXAMINED ALLOCATION GIVING THE 
> 22566 Cc GREATEST LOWER BOUND GN ZJ 
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os 


2257. 
2258. 
2259.4 
226. 
22é6le 
22626 
e263. 
2264. 
2265. 
22656 
267. 
2268. 
2263. 
2270. 
227k. 
2272. 
2273. 
2274. 
2275. 
2276. 
2271 « 
22TB. 
2279. 
2280. 
2281. 
22826 
2283. 
2284. 
2285. 
2286. 
2287. 
2288. 
2289.6 
2290. 
229L. 
2292-6 
22936 
2294.6 
22956 
2296.6 
2297. 
2298-6 
2299. 
2300. 
2301. 
23C2. 
2203. 
2304. 
2205. 
2306. 
23C7le 
2308. 
2309.6 
: 2310. 
*> 231i. 
° 23i2- 
<i 2313-6 
2314. 
22156 
2316.6 
2317. 


sR AACS... Satta tery Ante wheat teeth AES pt tN iat na Dnt ee gi 
Py oe me ‘ 


IF (KSTURE .Etie O02 RETUKN 
INCUM@(2) = LASTARE NEW, 4) - LBUSEC(KSTORE, J) 
DU 210 K=2,NCOL 
21C INCUME(K) = O 
IFEAS = i 
RETURA 
ENO 
SUBROUTINE SAVER (J) 


STCRES ALLOCATICN AND SOLUTICN [NFORMATION FOR SUBPROBLEM J 


AAA 


IMPLICIT REAL*4 (AyCeE-HyUePeR~weZ) 9 REAL*8 (BsDeXeY) ¢ 
L INTeEGER*G (I-N,Q) 

INTEGER*2 She KINUASgLAyLE LA, LE 

INTEGER*2 LPART, INCUMB,IVSENO,IVID,ICBND 

INTEGER*2 12STAK,E EID», I SBNO,1ZBND 

OGUBLE PRECISION £€ (i000) 

REAL A500) 

COMMON/BLUCK2Z/ DEP ART(122),REVBNDe I NCVAL es ICOLeLISTLyI VAL sIDI Ry, 
py NPE VCTe,IPTYPE,RCCST, LFEAS, LPART(1 22), I NCUMB( 122), 
é 1VBN0(500),IVL1D00500) »108ND( 500) 

COMMCA/BLUCKS/ KLAMCA(90910)¢2ZNAUT(10),ZJBAR(10) sNSUBSe I ZINC 
LIZBAP »LOUM, IBLE yNJFIAg JF IXSM, Ld pSFIX( 10) ¢NSOL( LO) eNLAMDAL1O) » 
2KSEG(10},1BSTARI(20C,10),18U8(10),1BLB(10),18P(51 10), 

ZTRUSEL( 200 iG) gi 2S TAR( 200,10) ,1 BI C( 200), IB BND( 200) »1Z2BND(200) 
COMMCN E,ALS(1 22) 9 XUG0122)98(60) ,X160),V(60) »YTEMP (60) »DSUMe DPROD, 
DY »DEyDPy Ay ICNAM( 1222259 NAME(20) »NTEMP( 20) ¢SUMINE pMSTAT, 
LOBJ eI ROWPs IVIN, 1 VOUT eI TCNT, INVERQ, LTRERQeITSINVe LFFEZe 
JCULP »NKUW, NCOL,NELEM, NE TA pNLCELEMeNLE TAgNUELEM+NUETA, 
1E€1000), 1A (500) -LE(252) pLAC122) KING AS(122)5J5H(60) 
c TEST wHETHER SUEPROBLEM J WAS FEASIBLE (IFEAS = 1) 
IF (IFEAS .EQ. 1) GO TO 90 
INCVAL = -10000 
INCUMe(1) -10000 
INCUMB(2) 10000 


WON e 


on 


SC LL = ASOL(J) 

NEW = LL + 1 
IBUSED(NEWsu) = I[BSTAR(NEWss) = INCUMS(2) 
IF (LL «EQe O) GO TA i000 

C CUMPARE NE SOLUTION IN SUB J wITH PREVIOUS SOLUTIONS 
DOG 50C KeleLl 
LF (LPUSED(NEWsJ) .NE. IBUSED(K,s)) GO TO 500 

Cc KEW SGLUTION SAME AS KTH? REWRITE OVER KTH REGION 
IBSTAR(KsJ) = IBSTAR(NEWsSJ) 
NTEMP(2) = K 
RETLURA 

5CO CCNTIAUE 


C NEw SOLUTICN DIFFERS FROM ALL PREVIOUS SOLUTIONS 
1CCC NSOL(J) = NEw 
IZSTAR(NE Ws J) = INCUMB(1) 
NTEMP (2) = NEW 


RETLRA 
END 
SUBROLTINE UMBRANL JeK) 
c 
C BRANCHES ON ALLOCATION VARIABLES BIJ IN SUBPROBLEM J 
Cee teeeee DE SCRIPTIUN OF PARAMETERS ##* 48848 
is J = PARAMETER LNOEXING SUBPRCBLEW IN WHICH BRANCHING [S UONE 
Cc K = PAKAMETER INUVEXING A PREVIOUSLY EXAMINED ALLOCATION IN 
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a a oT i i a bee ee 


23138. 
2319. 
2329. 
2321. 
232226 
2323. 
2324. 
2325.6 
23266 
2327. 
2328-6 
2329. 
23306 
2331. 
23326 
2333. 
2334. 
22550 
2336. 
2251 « 
23336 
2339. 
2340. 
2341. 
2342. 
2343.4 
2344.6 
2345. 
2246. 
2347. 
23486 
2349.6 
2350. 
2351. 
2352. 
2353. 
2354.6 
2355. 
2256. 
235 le 
23586 
23596 
236). 
2361. 
23262. 
23636 
2364. 
23656 
23666 
2367. 
2368. 
2369. 
23706 
2371s 
2372.6 
2373. 
2374.6 
23756 
23766 
2377. 
2278.6 


Cc 
Cc 


SUBPRUBLEM Je THE CURRENT ALLOCATION IN SUBPROSLEM J IS Tu 
BE FIXtO AT Tre KTH LEVEL FOLLOWING THE BRANCHING PRUCEUURKE 


CHCARAS HEE ERE KE OME RH OER HEE BRERA ERBRE RAD 


C 


5CO 


20C0 


BANA 


IMPLICIT KEAL*4 (Arle EH, DeP ye Rwy 2)» REAL*S (BD KY) 

1 INTEGER*4 (I-N,Q) 

INTECER¥2 JHeKINBA SplLAgLEsLAglE 

INTECER®e LZSTAR,1 BED, 1SBND,L2BND 

OCUBLE PRECISION & (1000) 

REAL A(500) 

CCRMCA/BLUCKS/ KLAKDA(50 910), ZNAUT(10)_Z2ZUBAR(LO) pNSUBS,L ZINC,» 
TUZBAR »TOUM, [BLL «NUFF UXs JET XKSM21B pSFIXO10) pNSOL( 10) ¢NLAMDAL10) » 
2KSEG(10)¢ LBSTAR( 200,10), 15U8(i10), IBLB¢410)¢IBP( 51 10), 
ZLEUSEDL2 VG 1G) pL ZSTARC 200510051 B10 200) pI 8BND(200),1 ZBND(200) 
COMMON Es, XLB( ide dy AUBC122)58060), X06 60) 44160) »YTEMP(60) »OSUM, OPROD, 


1 DY sDEeDPr Ay ICNAM( 12292) 4 NAME (20) eNTEMP( 20) ¢SUMINF oMSTAT, 
2 {UBJ yIROWP, LVINe i VOUTSETONT, INVFRQeITRFRQ,ITSINV, IFFE Zs 
a JICOLP eNRUW, NCOL »NELEM, NE TAgNLELEM»NLETAs,NUELEMyNUETA, 

4 {EC L000), LA(500) sLE(252) pL AL 122) sKINBAS(122),JSH(00) 


NTEMP (1) = IBUSED( KsJ) 

IF (IBSTARG Kd) eGeo TdU6(Ud) GO TO 200 
AOL UP BRANCH UN BIJ TO LIST 

TBLE = EBLE © 

TBLIOC TALL) = J 

T8BND (16L0) = [8UR 4) 

(2BNC(16LL) = IZLbAR 


IF (NTEMP(1) ott. T8LB{J)) GU TO 500 
AOD DOWN BRANCH ON BlJ TO LIST 

(BLL = [6LL + 1 

PBlo(rALe) = <u 

IBBNO(ISLL) = I6LBIJ) 

IZBNC(IBiid = IZBAR 


REVISE BOUNDS GN Bid FOR FORWARD BRANCH 
TF (TASTARC Ke J) eLT BUC UI) £8UBL J) =LBSTARCK eS) 
[TF (NTEMP(L) 2GT. TBibis)) TSLB(S) = NTEMP(L) 


1F (NTEMPil) .4T. [BL8(4)) GO TC 2000 
MSTAT = 1 
RETURKA 


FORWARD BRANCH DOMINATED 
MSTAT = O 
RETURN 
END 
SUBPOLTINE BBKTRK 


BACKTKACKS IN ALLOCATION-VARIABLES SEARCH TREE TG LOCATE NEXT 
PREMISING NODE TO BE EXAMINED. LAST=IN-FIRST=OUT (LiFO) 
SELECTION RULE USED. 


IMPLICIT REAL*4 (AyCeE~HeOePeR=WeZ) » REAL*8 (ByDeXe¥) ¢ 

1 INTEGER¥4 (I-NsQ) 

INTEGER*®2 EZSTAK,i BIU,1B BND, 1 28ND 

CCMMCA/BLUCKS/ RLAMOA(50 510) s2ZNAUT(10) pZJBAR (10) »NSUBS, 1 ZINC» 

LIZBARyIDUM, LBLLe NJ FIXy JELXSMe 13 pJEU XC 10) ¢NSOLC LO) pNLAMDA(10) ¢ 

2KSEG( 10) pLESTAR( 200910) » 16UB(10)¢1BLB(10) 2 IBPC51 el 0), 

ZEBUSET (200,10) 9125 TAR( 200,10), 1B10( 200), 1BBND(200) 91 Z8ND(200) 
RETURN TO MAIN IF LIST OF STGREO NODES IS EMPTY (CGMPUTATIONS 
CCPPLETED) 
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sere taste NLL AE LO A 


re 


2379. GC TF CLALE «EG. OC} RETURN 
2390. (a IDENTIFY BRANCHING VARIABLE BI 4 CORRESPONDING TO LAST NUDE ON 
2381. C LIST 
| 2382. Jo= TelO( 1BLL) 
} 2383. J = TABS(J) 
4 2384, C TEST WHETHER SUBPROBLEM ¥Y IS CURRENTLY FIXED 
‘, 2295. TF (JFIX€G) »Lé. O} GO TO 100 
2386. C WUNFL>™ ALLOCATIGN To SUBPROBLEM J NOW 
23976 NJFIX = NUFIX - 1 
2362. K = JEIXO) 
2399. JEIXS# = JFLXSH — LLZSTAR (Ky J) 
2390. i 
2391. 1CO JFIX(J) = 0 
a 2392. IF (T2ZBNUCLTBLL) .LE. IZENC) GO TO 2000 
23934 C 
2394. € GET NEXT NCDE FROM LIST 
2395. IF (L@1O(IBLL) «LT. O) GG To 200 
| 2396. € NOOF wAS CREATED BY JP-BRANCH ON BIJ 
2397. {TEMP = TKLB(S) | 
2298. IBLO( J} = FeUBCL + 1 | 
2399.6 TBUSfJ) = TBBNDO(IBiL) i 
2400. 1ZB8AR = LZBNOC IBLE) 
24016 JFIX€S) = -1 
2402. GC 'G 1000 
2403. G 
2404. c NCCE wAS CREATED BY OUwN=BRAACH ON BIJ 14 
24056 2cO ITeMP = LBUBiN} 
2408.6 {BUB{J) = ITBLB(y} = 1 
2407. IBLB8(J) = {BBNOETBLL) 
24096 Y2ZBAR = [ZBNCCIBLL? 
2409. Cc 
2410. ( “BOCKKEEPING® TO ALLOW ORIGINAL BOUNDS ON BIJ TO BE RETRIEVED 
2421 « Cc LATER 
2412.6 10CC IB8IDUTh&Le) = -1BIOCfBLL) 
2413-6 IBBNC(IBLL) = ITEMP 
2414.6 IZBNOCIBLL) = ~10000 
2415. RETURN 
2416-4 C 
2417 c NODE FATHOMED: UPDATE BCUNDS AND BACKTRACK AGAIN 
2418-6 20CO IF (1PID(I1BLL) «LT. G) GO TO 2200 
2419. TBUR(J) = IeeNDETBLiL) 
2420. GO TG 2500 
2421. (3 
24226 22CC [BLEt J) = I[BBNCCIBLL) 
2423. G 
2424.6 25CO IBLL = IBLL = 1 
* 24256 GO TO 50 
2426. END 
: 2427. SUBROLTINE OUTSOLE INC) 
x 2428. c 4 
2429. C CUTPUTS SOLUTION INFORMATION j 
rf 2430. CRA PERRERDE SCRIPTION OF PARAMETERS#*X OK OR ® 
al 2431 C INC(J) = PARAMETER INOEXING THE SOLUTION IN SUBPROBLEM J | 
al 2422 c (l= Le2yecesNSUBS) FROM WHICH THE OVERALL OPTIMUM IS 
, 2433.6 Cc COMPRISED (INPUT) 
} C4346 CHER RRR REA EMER EK ORRKK EEE EERE SEEKS 
4 2435. Cc 
& 2430.6 IMPLICIT REAL®4@ (ApCrE=HyOePeR—We Z) » REAL®S8 (BeDeXeY) s 
bi 241k eo 1 INTEGER*4 (T=-N,Q) t 
2438. INTEGER*2 IZSTARyiBI0,188ND,1 28ND i 
2439.6 INTEGER*2 [AS,LAS : 
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a a Oe 


* 


ey 


2440. 
2441. 
2442.6 
2443. 
2444.6 
2445. 
24456 
2447. 
2448. 
24496 
2450. 
2451. 
2452. 
2453. 
2454.6 
24556 
2456. 
2457. 
2453-6 
2459. 
2469~ 
2461. 
2462.6 
2463.4 
2464. 
2465. 
2466-6 
2467. 
2468. 
2469. 
24706 
2471. 
24726 
24736 
2474. 
2475.6 
2476.6 
24717. 
24786 
24796 
2489.6 
2481. 
2482. 
2483. 
24846 
2485. 
2486. 
2487. 
2483. 
2489. 
2450. 
2491. 
2492. 
2493-6 
2494. 
24956 
24966 
24976 
2498. 
24996 
2500. 


RAOMOAAO 


OIMENSIUN INCCLO) 

COMMON/BLOCK3/ KLAMDA(50,10),2NAUT( 10) pZJBAR (10) sNSUBS eI ZINC, 
LIZBAR »LUUMe LBL Ly NSF IX JFL XSMs 1B ep JFIX(10) ¢>NSOL(1L0),NLAMDA(10), 
2KSEGC1C), LBSTARKL 200910), 16UB( 10) ¢18LB8010), 1B P51 10), 

ZIBUSEC (200410) 91 ZSTAR(200+10)- 1 B81 01 200)» IBBND(200),1ZBND( 200) 

COMPCA/BLOCKS/ XLBS650910) eXUBS (50,10) ,AMATRS{ 1000) eRHS62Z0e1 0), 
INROWS (10) sNCOLS( LO) se JFIRSTCLL) » TAS( 1000) ¢LAS(50, 10) 

WRITE (6510) 

FORMAT (41 GPTEMAL SCLUTION'//* SUBPROBLEM',T20,'SOL. NUMBER *) 

DC 1L0C J=1lyNSUBS 

K = IAC(J) 

WRITE (611) JokK 

FORMAT (172720915) 

WRITE (6,12) FZINC 

FORMAT (//* MAXIMUM OBJECTIVE VALUE =*,110) 

RETURA 

ENO 

SUBROLTINE PHASEL( J) 


SOLVES SUBPRGBLEM J AS A LINEAR PROGRAM PARAMETRICALLY IN THE 
LIKKING CONSTRAINT RIGHT=HANC SICE. SIMULTANEOUSLY MODIFIES 
THE RESULTING CCNCAVE AND PIECEWISE-LINEAR PARAMETRIC OBVECTI VE 
FUACTIGN TO RENCER ALL BREAKPOINTS [BP(KyJ) (K = Le2eeocer 
NLAMDA(J2) INTEGRAL. 


IMPLICIT REAL*@ (ArCyE—HyOsPyR—byZ) y REAL*S (BoD eX)» 
1 INTEGER*4 (I=NyQ) 
INTEGER*2 Jhy»KINBAS,LAsLE,IA,IE 
INTEGER*2 I[ZSTAR, 1 O10, 1BBND,1 28ND 
DOUBLE PRECISION £11000) 
OIMENSION A(500) gL NC(10) 
COMMOA/BLOCK/ ZTOL ZEgZTOLPV, ZTCOST, 2ZTOLRS» ZTOLSMs QROe QMALQBA QF I 
1 QEUs CBL QA, QPL sy M19 QZ QI 2 QF 9 QN»QUs NRMAX pNEMAXe Q6- Cy 
2 QE rQhy Qh s QO QR QM 9 QGy NT MAX 
COMMON/BLUCK3/ RLAMBDA(50,10)52NAUT( 10) ,ZJBAR(10) »NSUBS,I ZINC, 
LIZBAR ey LOUMs IBLL»NJFIXs JFIXSMs 13 ep JFE XC 10) eNSOL( 10) »NLAMDAC10) » 
2KSEG(1C),T BSTAR(20C,10) , 1BUB(10),18L8(10),168P(51,10), 
ZIBUSEC (200,10) pI ZSTAR(200¢10) 51 BIO 200) » LB 8ND(200) »1 ZBND(200) 
COMMCN EeXLBl122)_, XUB(122) 9B(60)_X( 609, Y(60) e YTEMP (60) ,OSUM, DPRODs 
DY ,DE,OP 2 Ay ICNAM( 12292) e NAME (20) »NTEMP( 20 ) 2 SUMINFE pMSTATs 
1UBJUsTROWP, IVIN, I VOUT» LTCNTs INVFRQeITRERQ I TSINVs IFFEZe 
JCULP sNROW, NCOL s NELEMy NE TA »NLELEMeNLE TA,NUELEM »NUETA, 
TE€ 1000), 1A (500) pLE( 252) pL AL 122) eKINBAS(1L 22), JSH(60) 
LET CPTIMAL LP SOLUTION wiTt RHS = IBLB( J) 
ITSINV = 99999 
CALL ACRMAL 
ZNALT(J) = SNGLO XC TOBU)) 
IGBAR = IBLBi) 
K = 0 


SwWNe 


K=K +t 
IBP(KyJ) = IBBAR 


COMPUTE NEXT BREAKPOINT VALLE SBAR 
CALL UNPACK(2) 
CALL FTRAN(1) 
IF (Y¥(1O06s) sLE. 2ZTCOST) GO TO 1000 
OP = 1.6ELU 
DO LOC i=ly»yNROW 
TF (1 .s€Q. [084) GC TO 100 
JCOLP = JH(I) 
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ee ee ee a eee wee VS vee CE es ee cee eo 


a 


2501. 
2502. 
2503- 
2504. 
2505. 
2506. 
2507. 
2508. 
2509. 
2510. 
Z25iL « 
2512. 
25136 
2514. 
2515 
25166 
2517. 
2518 < 
2519. 
2529- 
2521. 
2522. 
25234 
25246 
2525. 
25266 
2527 « 
2528. 
25296 
2530. 
253% « 
2532. 
25336 
2534. 
25356 
25366 
2537. 
2538. 
25396 
25406 
2541. 
2542.2 
25436 
2644. 
2545. 
2546. 
2547.6 
2548. 
25496 
2550. 
2551. 
2552. 
2553. 
2554.6 
25556 
2556. 
2557 « 
25586 
2559-6 
2560. 
2561. 


1c0 


4C0 


41C 


5CO 


5106 


6cc 


61C 


Cc 
c 
10cc 


IF (y(t) .Ge. ZTOLPY) GO TO 60 
IF (y(t) «LE. -2TOLPV) GO TO 50 
GO TO 100 

OY = xXLBiJCCLP) 

GO Ta 70 

DY = xU5¢(JCOLP) 


OE = (CY = X(L)I/YCII) 

IF (DP .LE. DE) GO TU 100 
DP = CE 

TROWF = I 

CONTINUE 


OTEMP = FLCATIIBBAR) + DP 

DOE = CTEMP + ZTOLZE 

TBBAR = LUINT( Oe) 

{F (DE .LTe OO) [BBAR = [B5AR — L 
IF (1@8AR .GE. 16UBiJ)) GO TO 1000 
TEMP = FLUATIIBBAR 

O& = OTEMP = TEMP 

IF (TEBAR .EQ. 18P(KrJ))2 GO TO 500 
fF (OE «LT. ZTOLZE) GO TG 400 

GO TO 600 


NEw BREAKPCINT BBAR NATURALLY INTEGER 
RLAMDF(K,J) = SNGL(Y(10BJ)) 
UPDATE X TO REFLECT VALUES AT NEW BBARe THEN PIVOT 
OO 41C I[=1l,NROW 
Xd) = X¢0) + YOL) 40P 
B8(2) = FLOAT(IBBAR) 
CALL NCRMAL 
Ge Te 25 


NEw BREAKPCINT BBAR < PREVIOUS BBAR + 1 
OTEMP = X(1GBJ) 
[B8AR = IBBAR + 1 
UPOATE X: NEW BBAR = OLD BBAR + 1 
00 51C [=lsNROwW 
X(T) = X€0) + YCL) 
B(2) = FLCAT(IBBAR) 
CALL NCRMAL 
RLAMDA(Ke J) = SNGL(X(IOBJ) - DTEMP) 
GO TO 25 


NEw BREAKPCINT BBAR > OLD BBAR + le BUT NON-INTEGER 
RLAPDA(KeJ) = SNGL(Y(IOBJ)) 
K=K +1 
[BP(K,J) = IBBAR 
OTEMP = X( 1085) + Y{(108J)*(DP — DE) 
{BBAR = [BBAR + i 
DOP = OP + (1. = DE) 
OO 61C [=lsNROw 
Xt) = xX¢1) * YO) *DP 
Bi2) = FLUAT(IBBAR) 
CALL ACRMAL 
KLAMDA(KyJ) = SNGL(X(IObU) = OTEMP) 
GG TO 25 


END OF PLP 
RLAMDACK, J) = SNGL CYC IOBJI) 
NLAMOA(U) = K 
[BP(Ktl»J)d = LBUBI J) 

RETURA 
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2562. END 


ah 
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eeeee SAMPLE INPLYT DATA FOR DECOMPOSITION CODE USLC4esee 


€ 


N OBJ 
L Chl 
tL RCh2) 
tL 20w22 
t RCw23 
L RCW24 
CLUMNS 
celta. 
cClL2) 
cctl2l 
COL22 
CCL22 
CCL22 
COL23 
CCL23 
CCL23 
CCL24 
CCL24 
COL24 
CCL25 


Cc 


293 1 
SLB1 
CBJ 50-6 
RCwll lo. 
RFCh1L3 Be 
ced —-L1l3~. 
RCrLl 926 
RCh13 Tle 
Cce@u ~306 
RCwll Gle 
RCw13 3Ue 
Ces “O26 
RCwWLL lo. 
RCw13 6064 
ceJ -<210. 
RCwWLL 150. 
RCw13 20. 
RCwll 22le 
RCw13 258. 


2co 
SLB2 
ceJ ~43-6 
RCh2L 236 
RCw23 16.6 
CB ~7. 
RCw2) 4e 
RCw23 6. 
CBu ~33. 
RCw21 18. 
FCW23 306 
ce ~5e 
RCh21 be. 
RCh23 4 
Ce@J ~l2e 


hone ren an od nts TIA lt es ei 


ROkL 
ROw1L2 
ROWL4 
ROwL 
ROwL2 
ROWLS 
ROWL 
ROwLd 
ROWL4 
ROWL 
ROWL2 
ROw14 
ROwL 
ROwl2 
ROW1L4 


ROW12 
ROW14 


ROwl 
ROW22 
ROW2¢ 
ROwl 
ROW22 
ROW24 
ROQwl 
ROW22 
ROW2Z4 
ROwL 
ROW22 


ROWL 
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40. 
38. 
38. 
91. 
39. 
52. 
10. 
32. 
3C. 
30. 
Tle 
42. 
160. 
80. 
170. 


182 
232. 


o 


Cou25 RCn22 lee 
CCL25 RCn24 e 
RES 
RHSI RCa21 366 
RHEL RCw23 46. 
ENCATA 
oO. C. O. 0. Cc. 
ie 1. ie le le 
44 
3 
NAME SUB3 
RCRS 
K O8J 
tl &Ckl 
t RCwa3l 
L RCwR32 
t RCw33 
tL ROW34 
CCLUMAS 
CCU ceJ ~32< 
COL31 RCw3l lZ. 
Cccu3l RCw33 31. 
CCL32 ca8J “206 
COL32 RCw3l 8. 
€Cl32 RTW33 6. 
€Ct33 ce -4.e 
CCL33 RCw3l 2e 
CcCt33 RCw34 1. 
COL34 c8J -“3e 
COL3S RCk3 1 le 
CCL34 RChW34 de 
GEEa5 ceJ -43, 
CCL35 RCW32 236 
Ee.35 RCW34 146 
RHS 
RHSL FCK31 16. 
QHS) RCh33 41. 
ENCATA 
0. Ce Ce 0. C. 
Le 1. 1. L. l. 
9 37 
4 
NAME SUBS 
RCRS 
KR 49BJ 
t ROW 
t REG) 
£ R042 
tL kowW43 
tL ROSS 
CCLUMNS 
CCL41L ce ~4266 
ccl4l RCw4L 20U. 
COL4l PCW45 60. 
COL42 ceJ ~42.6 
CCL42 PCR4L 2Ue 
CCL42 RCW4S 8. 
CCL43 CeJ ~l2e 
COL43 PCW4l o. 
COL4S3 RCWS3 4. 
COL4S4 ce@J —8. 


ROaZz3 


ROW22 
ROwWe4 


ROwWL 
ROw32 
RUWS4 
ROwL 
RUW32 
ROwW34 
ROW) 
ROWS3 


ROWL 
ROW32 


ROw] 
ROw33 


ROW32 
ROW34 


ROW) 
ROW42 
RUWS4 
ROWL 
ROW43 


ROwl 
ROW42 
ROW4SS 
ROwL 


Se 


64. 
27. 


48. 
29.6 


Oc caches nS ceca tno: Mn obtains al a asksibgriae 


CCL44 RCh4SL 2. ROW42 36 
COL44 RCW4S Oe 
COL45 CBJ -2e ROW) le. 
CCL45 RCw41 le ROW43 2. 
: COL45 RCH44 1. 

RAS 
RHSL RCk41 160. ROW42 86. 
RHS1 RCW43 6le ROW44 230. 

ENDATA 


a 
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eeeee OUTPUT GENERATED @Y DSLC ON SAMPLE PROBLEM* ##4# 


START NEw PRCBLEM 


1BP{K, 2) = Oo 10 Lk 40 4 = 80 162 163 185 i86 193 
RLAMOA(K, 1) = 3200 2607 2.07 1640 1640 2631 14631 1.22 
ZNALT( 1) = 0.0000 
TBP(K, 2) = ) 12 13 «6415 16 27 39 
RLAMDACLK, 2) = 2675 2633 2633 2ell 2elk 1660 0.64 0.63 0.59 0.37 
| ZNAUT{ 2) = =C.0000 
TeP{K, 3) = fr) HO 6 ER) CLS 16 17 34 
RLAMDA(K, 3) = 4230 4.00 434656 3256 34645 0267 0.60 0.59 
ZNAUT( 3) = =C.0000 
1BP(K, 4) = c 1 2) At lg 13 
KLAMIA(K, 4) = 6.00 420 4.20 2.00 1.252 1-52 
ZNAUT{ 4) = 0.0000 
Ste § SO ‘fs 266 0 55 64 50 24 1 ) ) ) 1 
sue 2 SCL 1: 2 1 9 al 14 8 1 1 ) 0) 1 
SUB 3 SCL 1: 50 26 13° 2 20 t2 fe) fo) 1 1 1 
sue 4 SOi IL: 64 Oo i3t 63 3% 2h 0 1 1 1 1 
TIME = 1.10 SECONOS: IZINC = 442 
UB 4 SOL 2: 62 0 132 63 36 212 fe) 1 1 1 ) 
Sue 3 SCL 1: 50 21 P) 0) ) 0 ty) ) ) 7) 0 
sue 3 $Ol 1: 50 2 ) fe) te) te) (a) (a) fo) 0 0 
SUE 4 SOL 3: 52 5 137 983 38 215 fe) iL ry) 1 1 
SUP 3 SCL 2: 10 ) 5 9 14 8 0 1 1 1 1 
TIME = 1.62 SECONDS: IZING = 450 
Sue 2 SCL 2: 55 2 43 -26° 20 FS 1 fe) 0 0 l 
SUB 3 SCL 3% 63 o 8 10 17 lL () 1 0 to) 1 
sue 3 SOL 4: 67 0) 6 10 14 +10 7) 1 1 0 1 
Sue 4 SCL $ 54 Oo 134 66 36 218 fe) 1 i Ce) te) 
SLA 2 SCL : 55 ll 3 25 18 ok 1 1 ) 1 fy) 
m TIME = 2.26 SECONDS: IZINC = 452 
TIME = 2.29 SECONDS: IZINC = 455 
sua 2 SOL 4: 50 2 9 33 22 ll 1 1 0 ) () 
5 SUE 2 StL 52 67 0 3 13.10 8 1 1 0 1 1 
| SUR 2 SCL s 62 2 fe) () fe) fv) ro) (e) te) fe) (0) 
ste i SOL : 261 28 96 2 89 + 70 1 1 1 1 0 
{ TIME = 2.92 SECONDS: IZINC = 457 
¥ cD SLE L SOL 3: 240 6 36 76 28 32 ty) fa) 1 o l 
a Te) TIME = 3210 SECONDS: IZINC = 462 
’ Cc 
* 
re CPTIMAL SOLUTICN 
x 111 
¥* 


SUEBPROBLEM SOL. NUMBER 


MAXIMUM OBJECTIVE VALUE = 462 


TOTAL SOLUTICN TIME = 3e12 SECONDS 

TIME EN PHASEL = 0.60 SECONDS 

MASTER PROBLEM SOLVED 91 TIMES: TOTAL TIME SOLVING MASTER PROBLEM = 0.22 SECONDS 
NUMBER CF TIMES EACH SUPBPROBLEM SOLVED = 3 6 6 4 

NUMBER OF DISTINCT SOLUTIUNS OBTAINED IN EACH SUBPROBLEM = 3 5 4 4 

YCTAL TIME SCLVING SUBPROBLEMS = 2.220 SECUNDS 


APPENDIX IIT 


Py 


LISTING AND SAMPLE INPUT/OUTPUT FOR COMPUTER PROGRAM DMLC 


_ 


pi 


SF Ta PR ae 


. 
e 


©1Q? 


SS OR 


oe 


¥#eeeCLTPUT CENERATEC EY oMLC UN SAPFLE PRKUGLEM#O¥ Oe 


SLE L SCL Ls 266 u s 64% 50 24 1 i) 0 0 l 
Ste 2 SEE 1: é2 L g cl 1¢ o i 1 0 0 1 
SLB 2 SCL 13 50 2u 1s <4 rav) 12 G (0) 1 l 1 
SLE 4 SCL 1: 64 v lst 63 34 2hl 9) 1 lL 1 L 
TIME = 1.¢€4 SECCNCS: L2INC = 442 
SCE 3 SCL 5% 47 19) 14 25> 20 14 Q u 1 0 l 
SLE 3 SE 33 50 v) u 0 Q (¥) Cc Q 1?) 0 (¢) 
St@ 3 SEt As 50 v) C V) u rV) (0) Q Cc u i?) 
Sel 2 SEE Sf 63 u ° lu 17 1i Cc 1 0 (¢) l 
SKB 4 SCL 2:5 52 & 437 383 36 215 Cc 1 Cc 1 1 
IMC = 2044 SECCNDOS: IdiNe = 443 

sus 2 SEG €% 70 ] 5 9 14 3 QO Ll 1 1 1 
ste 4 $Ck 2323 50 Y 236 83 40 216 Cc L Cc 1 19) 
TIME = 2e€S SECCACS: IZINC = 448 
StL@ 2 SCL Te 67 rv) 6 lu 14¢ 10 G 1 1 18) 1 
SU@ 2 Set Ze 55 < 13 <o <o 15 1 19) Cc i¢) 1 
$t@ 2 SCL 33 55 li 3 25 is ll 1 1 Cc 1 (6) 
St@ 4 SCL 48 €2 VU dLse o3 36 21d Cc 1 1 1 0 
TIME = 4.15 SECCACS: {cINC = 450 
LE 4 SCL o3 54 u 124 60 36 «dha 0 L 1 i) (¢) 
TIVE = 4.45 SECCACS: idZINC = 445 
Sue 2 $€k 4% 5C < 9 33 22 ll 1 1 (0) (@) i?) 
St@ 2 Sct §:% 67 rv) 3 13 10 8 1 4 Cc L 1 
SL@ 2 S€&k 63 62 u u Vv) 0 iV) C i?) Cc 19) Q 
Su@ 1 SCL gs 261 2y 56 2 89 Tu 1 i 1 L te) 
TIME = 7.C5 SECCANCS: Ié2INe = 457 
SLE b “SCt oe 24C 7 3u Tu ra.) 32 0 1?) 1 v) 1 
SLE LL SC&K 4&8 231 b $7 34 lig ive 1 1 c 1 (¢) 
TIME = 10.25 SECCANCS: LZINC = 462 
CPTIMWéet SCLETICA . 
SLEFRCELEM SCL. AUMBER 

1 z 

2 § 

2 € 

4 1 
WAXIMLH CRJECTIVE VALLE = #od 
TETAL SCLLTICN TIME = LueSEStCUNUS 
TIPE IN PRASEL = Co@5 SeLlNis 
WASTER FRCELEM SCLVEC 229 TIMES: TUTAL TIME SCLVING MASTER PRUBLEM = 7.62 SECONDS 
ALMBER CFE TIRES EACH SLCEPRUGLEM sO0L VEU = 4 6 ze 5 
ALVSER CF CISTIANCT SCLLTILUNS ULSTAINEL IN EACH SUVEPROELEM = 4 [) 7 5 


TCTAL TIME SCLYVINCG SUBFRUGLEMDS = 2435 SECONDS 
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CEL42 PJ tLe KJwl 1C. 


COL4E RC a4Gl Zvie KUW4s dle 
EClL42 ROH44 Oe 
Cct4? CEJ kee RJwl 8. 
COL43 &Ca4al be RUwWed 2c. 
2 cela FCw43 4. RUW44 46 
7 LCL44 CEJ mde ROws le 
CCL44 RCw4l ce RUNG? 3e 
CCL44 hOnG4 Os 
CeL4s Ce@J “ee KUWL le 
E€Ce4s RChw41 l. ROW4s Ze 
CCL4§& FC H44 Le 
RFS 
Rr $l FChL LUe 
4 rae | FCh4) love RIwW42 Be. 
RES1 FCK43 Ole Runw44 2306 
t chCATA 
| CG. ue Ce Ue Ce 
Le le 1. l. l. 
c 
zc 
4 
¢ 
sl 
i 
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Sa UR aR 


é 


os 


CCLE4 

CLLE4 

Cctss 

CELZ§ 

ECvr]|’s 
RES 

RE SL 

Rro) 

RES 
ENCATA 

Ce Ce 


le le 


44 


RES 


L xCWG4 
CCLUMNS 
CCL4L 
CUe4) 
cCcl4l 


Bleel le 
kCe 23 ‘te 
ce bl a 
hCwec War 
kCa24 De 
FOCRL Lhe 
FCh2l ube 
FCn23 406 


Ce Cc. C. 
1. le le 


ste3 

cel 320 
FCn31 lée 
FCw33 Sha 
CE —Zue 
£&Cn3l de 
FCw33 Oo 
CeJ te 
FCwe31 ce 
FCHK34 ie 
CEU Sa 
FCr3l Le 
KC wn 34 Pay 
CEJ ~4s6 
&Cw32 2Se 
GCh34 14. 
FChl ld. 
FCns) lo. 
FC nS 3 Gar 


Ce Ce C. 
l. le l. 


flc4 

ce@J “42 be 

BCwod cUU. 

&Cw43 bu. 
116 

D 08 hte & i, 


Runde 


ROwl 
KRUWes 


KkUned 
KUw24 


ROwi 
KRUR32 
KU W354 
ROwL 
RQw52 
ROW34 
nul 
KUw35 


ROWL 
Ruw32 


RUWL 
KUw33 


KUW32 
RUa34 


nuwl 
ROw42 
KUW4S4 


él. 


4E. 
25-6 


260-6 
100. 
310. 


49e%%xSDNPLE INFLT CATA Fur CECOMPUSTITIUN COVE UMLC 4* 48 


- 4 l Js rv) 
7 62 
1 
NAME SUBL 
RFCwS 
KR OBJ 
L RChI 
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4 debleesdy TA SU0) pLECZ 92) LAC AZ Ee) eKINBAS (122), dh6U) 

NCLUL = NLULdI SU) 

NKUW = NKkuwSis) 

NELEN = Je ikoTtutl) ~ JFIRSTIV) 

LL = JFiKST IS? = 2 

LUAL Agl&s LAgXL3S eg XUB eB eu eK INBAS 

CU LG L=LhsWLiLM 

A(T) = AMATwotcetiad 

TA i) TASILLtI) 

BG 20 K=iyNCui 

LA(K) = LAa( Ky J) 

ALBCK) = ALES IK, J) 

ALACK) = Avvotlrye J) 

LA(ACLEL+.) = NELEM + 2 

BEL = we 

Lh = NSuel ds? © 2 

OC 3O Tahoe Welnn 

K = LESTAR(ietey Jd 

SdLtlL) = Fccating 

K = NCIN® + 21 


tu ™m 
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. - aims in 
i ne oa ni 


er 


ae nha € KRLUND tau? s tir NECESSARY) TU INTEGER VALUES 
42 - C 

Varnes ae kk = Netw ¢ < 

Fey ae Pe KK = Bilan ¢ 1 

edtbe NRCLBE = u 

22&2. CG elC i=arehclna 

celbde LSUM = Cr vARTLItid & Goui 

ELL be OO SLO veet eNULE NK 

cébse D1C OSL” = Loom t LFPART(J) 

evene IStCW = juiNT(Us0) 

eetle Te (ASUM etwe C2 VC TU 360 
cele NRCLAC = i 

e2C3. €6 SS¢€ {f=1,isen 

feta fGc4 = i +3 

week cP = CFPARKTalCLL) 

zelte CC 52C J=tLbeNCLe ohK 

attse TF (OFFART (0) ebhece LP) GU TU a2 
cele CP = Crfani(sd 

eclre IcCi = g 

eétbhe. 52€ CONTINUE 

«dl?. IPAKT(lUcL) = IPARTCICUL) + 2 
eclde DFPART(IecL) = ue 

e2l%G. EEC CENTERECL 

ect). S66 WE =.tbi © 4 

ect! é€€ CENTINGE 

eZb2« ¢ 

eebse € inSTALi NEw LNCUMbENT 
cele DC SSC J=lyNeUL 

é2hae SSC INCLME(L) = ITPANT( UD 

ecb se “ETLRA 

erll. END 

egtbe SLBECLTING LUMCHAR( otk) 


oeRGe C 
EEGs 6 c COMPARES CURKENT ALLUCATION EFRON SUBRCUTINE ALOCTE) wilt 
ecSie i FREVIUUSLY EXAMINED ALLUCATICNS IN cACH UNFIXEO SUBPRUDLCM 
Z£f92 = C TC CeTtkMlNt IF CeT. SUL. CUKKESPONDING TC CURRENT ALLUCATIUN 
2294. € TS #cKLALY BKivlnK Fuk ANY sUBPRCBLEM 
£0540 CRA SeeKLECE SCRIPT LU UF FARAAE TERS ®#¥ RAK S 
2265. Cc Jo- PARAMETER 2 NUexING FIRST SLbBFRCBLEM FCUND OR whiCH UPTIMAL 
ccGbhe C SULLETIGIN CORRE SPUNUIWo TC CURRENT ALLCCATION IS ALREADY 
c2eSt.« c AWUOKN (CSTPCT) 
22686 € K = PARAMETiX TADEALNG Tre PREVICUSLY EXAMINED ALLOCATIUN IN 
2aG46 Cc SUSRRLGLEM © wHiCh LEAUS TC SAME UPT. SOL. AS wGUiv 
2200. C CUfkenT 260CCATICN (UUTPUT) 
2560L< CHEER RRR H Ey OR ORS OG OR aR a a ED 
22€2.% C 
Z205< IMPLICIT KEAL*4 (a eC yEmH el yP oy R—be id) » REAL*G (SyDeXeVd 9 
2204. i TNTECERK*a (Livy ©) 
23Cr. INTEGER*®. LesTAkyleluylooND,I ZohC0 
2306. COMMENR/BLUL Ka KLAMLAL Dp cUp ddd ep ZNALUTI E0210) ,2JbARI LU) epNCLINRKe NSUBS» 
Z2ET « LIZINC pLecAR pibeMyLELLeNJFIX SFI ASMy IBIS) pSFTXC LOI eNSULGLUde 
esGhe ENLAMGA Civ) gp ABSTAR( Se¢U9 LU) gp LBUSED U5 040910) pL EUB( 5910) pIbLBloeluds 
2363) « 4TZSTAK (40, iv) sil LU bey cb), (KSBWU (200), T28N0i 200} 
22ivu. OC ICC J=ieNoLud 

pa z3ll. Ik (JFIAGU) 6G. 0) GU TU luuvU 

“y éile. TF (NSCLid) ctu. YI GU TL Luv 

c 2ilss tb = NSCitJ) 
e3i+. Pi = & HE 
er bse CC SOC Red et 
Esho's C TeST ALLULATIUN ALAINST UPPER BOUNDS UF 
esbls C sly fin nT SCL. CF sud J 
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=o Paatemte. Ont te Rare bt mii te a MRE a3 9t BLL TR ys 9 A atest se SARC RANI Rta ll Dn a ae OEE SORE ET Tee 


as 


215d. ITeV*r = LVehr + N 


elGle SCC CEONTIACE 

EYG3« cAEACCL es = NetemM + 1 
Z15 96 ITSINS = SSS 
2e2C). TAVFEC = wale 
fells KETLER 
é@ecu . ENC 

tide SLERCLTIiNe TeSTe 
C 

22056 C TESTS CPRUPTIMAL SULUTICN TO MASTER PRUBLEM FOX FATHUMIWG aT 
22C6. c CURR CAT NCLE ITM ALCULATIUN@VAKIABLES SEARCH TREE. IF Wl 

2OR-« ¢ FATPOME OU, KOIwUS CPRUPTIMALG ALLUCAT{LUN TU CATAIN AN INTEGER= 
22038 - € FEASIGLE LLLUCAT [UN 
2eC9 € 
420 IMPLICIT Reae*4 (A pc gtw rtp UpP amma dd eg REALE (Kyi eXeV de 
Zeke lL TNT eotats C1eN, wd 
é2l2-. [ATECER¥S UE anivcASplAel ty lArlé 
2213. ENTER ERNE LPAnT, INCLMGs 1 VoNUe LV10,TCBNOD 
cel te INTECE RRO TESTA pI] clus lboNDy,i cone 
2e15-6 meee PeeCisity c (iva) 
ezloe. REAL £lauu) 
2clh« COMPOS/oLUCK/ LICL dep cTUL PVs LECCST, ZTGLRI yg ZTCLSM sGKU ys QMA, UGA QF I > 
Agate 1 we, WEL EWA QPL eM le Cd sly whe ON s QU, NRMAX pNEMAXAs Ube uCe 
22196 2 wee ube abe Ql eb Re dM pC yp NTMAX 
Peltor COMMU R/C UC Re/S DFP ART (iced) pReEVOND pINCVALsITCGLeL1STLyTVAcelVIik, 
Ztcbe 1 WEE vc Ty LPT YP cy RUCSTs LFEASS TPART(1L22) 2, INCUMBILAi22)» 
22226 bvoNl( 500d, TVIUC 500) pL CbNuU( 500) 


“en IMME BR/SLUCKRSS RLAMLAL Sy 2U9iG) y CLNAUTE( 20910) 9 ZIBAR( LG) pNLINKs NSUB So 

LIZIM plenak sTuuMslL bib y Wor ide JFL XSM, 1305), SFI XC LVI sNSGLCILO), 

2NLABE A Cloud p LG STAR(S, 40910) pL BUSEU (5 p4CeiU) pi EUB( 5919) pI OLB > ei) 

tL LZSTAR C4Cs dude ludules2U0)y boNU (ECO), LT ZBNDI 200) 

COMMER EyALotbceds AUBEL22) -BtOUd XT EO) eV COG) pYTEMP(6OU) ,USUM, OPKUDe 
UY yberUPy Ay ICNAM( 2292) pRAME (20) »NTEMFC 20) » SUMINE pMSTAT, 


a 
é iVovy TREwey PViNe LVGUT eT TCT, INVERGe ITRERGQ eT TSINV,ITFREZ, 
3 JELLY pNRUM, NUCL ¢NELEM? NE TA pNLCLEMyNLE TA, NUELEM pNUETA?e 
4 Let lob), AC50U) pLEL 222) pLACA22) PKINBAS(1 22) ¢J5H(00) 
2 CP = 2tiveas) + ZTOLZE 

C2334 {INCVAL = LLINTIDP) 

Zia ts IF (DFE .bT. wed) INCVAL = INUVAL =— 1 

22356 LF (MSTAT eocwe wid [hCVaAL = —lUCLC 

2é256 C TEST FUR FATRLUMING 

2230s Te CENCVAL estes IZINC) KETURN 


£e20 0 C ceuMPLTE TNTECCR ANDO FRACTIGNAL PARTS OF EACH ZJy Bid 
e24le DC 10C v=LeNCUL 

ec426e TF (KINDAS 409) 4Uy9C360U 

2243.6 4C DFPART(u) = Ue 

<244. TPARI CS) = LLANT CALEB Sd] 

L246 GC Te lus 

22456 EC DFEPART(O) = Us 

ec4le LPART(S) = ILINT (ALE (Ud) 

2436 oC TC luv 

E2440 é€ £ = RtiuAS tel 

czbUe CP = xtl) * cTeLcte 

erShe PPART(J) = IDINT(OF) 

“ecw fe GOF wee Ved iPARTIU) = LPAKT¢Iu) = 1 
cede K = FEAKT Eu) 

<et4e DFPART(u) = ACL) = FcuaAT(K) 


CW ite i ACC CONTIALE 


FLZSTAR (4c pal) edo lo lercuude IL ooNl (200), LLbwCl 0 2Cu) 
2lz5ie CUMMON CyALellLec dy ALObL ed pOLOU) XC EU oe VEOU) pYTE MP (GU) ¢USUMy DPRUU, 


elit. i UVa ece Pe Ay ICWAME ded ec de NAME (ZO) »NT EMF 2U) 9 SUMING pMolT AT, 
, e133 < bodbuelRUnhy LV INe LVGUE pe LTC, INVERCe TTRERQ GT TSINV, lOc, 
| - 2139. 2 JSCULbF apNmR me NCU ewe eMe Nc TA gpNLEL OM NLC TAyNUELEC My NUETAy 
| i, 2149 4 Le LOCC) AA (500) gp LEM 2 2c) pLAILE2) pKINSBAS(1 22), 5H( 00) 
<l4le NRCw = welNa ¢ | 
e142. BL) = Ve 
| 145. C INSTACKE who FUR LINKING CONSTRAINTS 
614%. OO Leo l=deNRuw 
<l4o. ETEWP = Lati-2) 
| él4ae WC B4L) = rrcAT¢i temp) 
- 2147. € CUMPUTC NRE weNCUL 
€144. OC LOC g=asNovitS 
21496 ANRUwW = AnUw + NEAMLAC YS) 
| | Sb os 1c¢ CONTINGc 
| 21Sks ANCCL = NRUn + NOUGSH(NLENK ELD 
2182\0 C 
21sec. C INSTALL SLACKS 
Z1S%. € 
erex. DC 2uc Ll=iegikKun 
el eh« A(!) = l. 
Late LACEY =f 
esse [A@1l) = 4 
rh ae KEINGAStID = | 
Zlede Jhir) =] 
2lét. ALQ(L) = ve 
éele2s 2CC XUB({I) = LOCO. 
2YG3% ig 
ele. C iwsTALL Luge CULUMNS FOR LNFIXEU SUBPRCBLEMS 
EES NELEM = WRKEW 
215. ICCL = WkUnK 
<lé7. ITENE = wiliw t+ L 
2&4 6 NC SCC J=zlehSsJBS 
2169. NELEM = WoeemM + 1 
eltde TCGt * itue + & 
z2l7it. A(NELEM) = Le 
2X1T 26 TAQNELCEM) = 21 
244 Ss CACICCL) = Nolte 
2174. N = ALAMDAGY) 
cllyd. OC 21C KALeh 
21tde NELEM = welch + 1 
| eVete A(NELEM) = 2. 
/ 2RT%s EY = Pc? # K 
F 2179-6 LAC(KELEM) = Lo 
® * 21d). SIC BELT) = Voter dhac&kl (kyu) 
rp i) ff = S7eeP + 8 
| Pa 2182. KINGAS(itcc) = If 
q elb3e nINBAS(IT) = ¥ 
214%. JHCIT) = Tue 
PR 4 Z1596 CC 3n€ d=iyhein 
r « Zlfo. NeLEM = welew + 1 
I al cltt. ICEL = tut + 1 
is zles. LACICCL) = NeLee 
|: Vaud eld. A(NELEM) = Le 
B * C. 2196 IACNELCEM) = F + 4 
% Pad z1Sl. BC 2326 Kel en 
% z1S2. NELEM = NeLEM + 1 
t ¥ Z154.6 AUNELEM) = <KLAMOAL Ly Ryu) 
2 £1546 22¢ TACQKFELEM) = ITEMP 4+ & 
£159 96 fC KINUVASTICUL) = U 
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a eR fo ak 


a 


éeCT4. GC TE €%st 


etias ette CE = Xbotyl 
clive. ETEC Gh = UPLad 
eCTte. KK >= LALgFh) = | 
eC 78. OC €8Ce 1=Liekn 
= EUR « IR = [TAC¢i) 
i 2LE 2.6 eecC YCLR) = Yelm) ~ ACLIFuE 
eCele SCCO CONTIN: 
eC&2.. CALL FInawti) 
elsise CALL Srirtvtavet 
2CE4SS. ¢ SCUVi MAsTcw PRCHLCM AS LP 
eC es. SC CALL NORMAL 
eCcG. C Te Sf tum FATHUMINGs RCJNUG GI1S*S TU Get INTEGER@MFEASToLéi oh. 
Bd eCeT. CKEL TEST: 
zC&de C 
ZOE Fe 2CCC YF CI ACvat whee LEENG) RETURN 
clSCe FCOCL = Newaw + 1 
eCSl. C CUMPLic br bUUNL Un UBde vALe IN JNFLAcC SUSPROBLEMS FUK USE 
ecS2s C IN Soucrreeee)m Stlbecflun KJLt weed [PARM = 1} 
Cos. Ceo IB J=igNorss 
elCS4%e bE CXEYKES) «ots GF CGE TU be 
2{S4.6 I = KiNsastileol) 
ECD% 6 ZJPAR (CJ) = SNGLOACED) 
cLST. We VEEL = tcck « NeINK + 1 
eCSt~e C INSTACL Wew ALECCATIUN IN ITBSTAR 
2CS%5. IO1X® = Wrouw + 
423CG. VC 21CC velsWNotss 
21Ghs EF CSF LACH) «<GTs OF GU FO Zhao 
<2lC2. LESTL = NOCKESD © 1 
elec}. DO 2cfC L=leNcIwk 
elC +e eCSC TESIAR Ly» cistiyu) = incuMolluinel) 
2105 21€€ POIR = Lule * NLENK * I 
2165. CO ¢2CO itleNcINen 
<1C?. RPL at + & 
z1c4. TF CENCUMeCEPL) etwe v) GL TU c2ce 
CCH. Ov 2150 JselheNsuss 
elld. IF (JFIA(s) evole Ud GG Te ehou 
elll. EESTE = KSEE & 2b 
ell2e IBSTARCE pcicotlusd)d = IToaT ARC peI STL, ud * INCUMB(ITPL) 
ells. If = Festaktdl scl STl,J) =~ IduBll oJ) 
e1l4. IF (21 estes UX wl FO 22v0 
ra fo LAastAb¢ yc lsthsu) = Lsusllss) 
e1bb« INCLYE(TPi)d = Ii 
elit. LSC CEONPURGS 
z)18%. 22C€ cONTIMGE 
ceils. RETLUMA 
™ clede ENL 
Zléie SLPRULTiNG LUMSTR 
P Zléde C 
4 cl23. ¢ LEfCs Lata FuRw MASTER PRUSLEM INTC APPROPRIATE STURALE 
Z1le%e. C LECATIGNS rex SLLUTLON BY sUBRLCUTINE NURMAL 
{ 2125-6 C 
mu 21256 TMPLICTT nchi te lag yc=MelCePpR—me dd eo KEAL*®S (6D ereV) » 
aA cle. 1 tN\Tecek*4 (l-vred 
éledse INTEL ER*®. orp W INGAAS ptAgptce TALE 
2123. INTEC ER*e Lest Ae gi bluy I BBNUe LT LBNU 
21306 CCOLALE Pre€lsliun ec livuu) 
cb3le REAL &louud 
2132. COMMER SC CCKS/S RLAMCA( D9 2001 UG) LNAUTO 20910)» 2ZJBAR( LU) pNL INK, NSUB Se 
13.6 LIZINC pLdcaw lLuumMy Tbe yp NIF TE Xe SEL ASM, IBID) pVFI AC LO) eNSUL( LO), 
clive ENLAM A( Lode be cstTAKkl Sp tue dh OV) plod EG hd p40 yl) pL BUBI Se lu) pe LBL Blo elude 
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Sa ORE ae 


s 


a4 


KtUPTIMi dgcu STARTING FROM PREVIGUSLY OPTIMAL SuoLUTLUN 


c bieter UVLEAT CALL LumMsTR) 
CPR RINE R BH Re RRA RHEE RAMEE ERE M EER RR ER 
C 


IMPLICLI xt dave (are rtmHelePykmned) » KEAL¥B (tHelsreV De 
l iNtTEGCCR*a (Il-New) 
INTEGER*.L Ube RINDAS si brCE,lAgit 
INTECER*S LPART, INCOME, IT VBNU,iviDs,LCBND 
INTECER*. TeoTdk el tiluelbvbNDs icoNU 
OCLPLE PreCISTtw t (luv) 
REAL Fou) 
CCWOMOR/eLUCKS eT Lt dt y2TULPVe CTCCST, 2TGCL KU ep LTCLSM yp CKO UMA, CBA gL ly 
1 BELO CEL PQA puePEe GML ep QZ owd py GN» GU» NKMAX pNEMAK, QBy uly 
2 we pth pel yr ep UM eG NT MAK 
COMPUR/ CECE RES UFR EP Tiled) sKEVONU ZINC VAL, ICCL,LISTLe I VAL slulKy 
NPIVETsIPTYPEskKCUCST, IFEAS¢ LPART(1 22), 1 NCUMBIL 22) 
TVbNLi vu) slvTut SCC) yICeNDI90C) 
“ COpRC Wha CEH: fF WKLAMUAL DS» 20910 dy ZNAUT( 20910) 2 ZUBAK( 10) »aNL INK NSUB Se 
LEZINC p beoAme tUC4 sy LULL aNJFIXs SFLXSM, 1609), 5FT X01U) pNSOL Ci)» 
ANLAKCE LLG) pe LUSTAR( S49 OU) pL OUSEDUS 40710) eT CUBI 5,10) pIoLol5910), 
ZIiLSTAKIG Sy Lede db lV bee 200) LT BdNU (200), 128ND(200) 
COMMER cortetlce ds AUbhad2) pe B(OU) es XC EO) V (OU) sYTEMP(60) pUSUMy DPRUDs 


4 JV pL guPyAy LCNAM( 12292) pRAME(ZOUd eNTEMF( 20) 9 SUMING pMSTAT, 
2 Lodeaklabs LvINy LVUGT SZ LICNTs INVERQ,ITTRERU SIT TSINVe TF FE <Ly 
a JOULE pNeune NCL, NELEMe Nc TA pNLELEMyNLE TAgNUELEM ep Nucl Ay 
4 bell Cuads TA C900) LEC ede} pLAC12Z2) »KINBAS(L 2c) yJH COU) 

C Tr Niece SsARY, CLAL VATA FUR SOLUTICN UF AASTER PKOBLEM 


IF (I FAn ete. &) CALL LUMSTR 
ICCL = Naun 

CO 50 J=iyhsubs 

IF (JFIX¢u) wot. UI GU TL 40 
Léck = £60b + 2 


€ INSTaAcc FLUNDea CN cd COLUMNS 
XLE(ICCiL)d = —LeuLU. 
ALe({CCL) = iGCul. 

C INETaALL eLYNUS CN oly CULUMNS 


te 70 f-i,NtIN« 
TCE = acti + 2 
Tl = YPtb¢lsJ) 
XLECICCL) = FLLAT( AIL) 
fE = fell esi 

=C KUR(ITCLL)d = FLOATIII) 
GE TE Se 


C INSTALL eLENUS CN CULUMNS ASSUCTATED WITh FIAED SUBPRUBLEMS 


4C ® = SFA) 
fGEL “= {408 * 2 
If = [25TAR (Ky y) 
KLECICC QO) = FLOATALL 
XLB(ITCCL) = aALelIece) 
CC 45 I=iyNtINw 
FCCk S Wve + 2 
{1 = Jetotley) 
XLECICCL) FLLATUIIL) 
45 xUECICCL) ALEC icCl) 
*£€ COAFERGE 
{TCNT = u 
iF (LFbR ctu. OF GL TU GO 
CALL SEIFTRKbiy 5) 
CC SCCC v=lsNCbe 
IF (KINBAS( Ud) EOUUs E100, FUUU 
€ecc CE = xXlBivd 


wo 
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sown taper ty: ALA MP Cred, 4 


ESS20 KLECI(Led = rooaTintemrPt.d) 
1S ¢3. TF th G43 tue) 2k Te Bd GE Tu oto 
LS24e KINBAS Citved ~1 
F555, NTEWF LS) = 4 
1GfH. id 
2 |W WCC WVICKCRIsTcde = —bvilecasTe) 
% Facile IVERD iLioled ese oe) 
1G5 Fs. ICENC (kL Tsot.) “bute 
LSé0% € 
LSé.~ C JeLATE K 
LS.b 26 [FE (NTEMY (3) ecwe &) RETURN 
1S63. CALL SEEFTR O13) 
G64. CC SCC gs ehCbe 
5 L656 TF (KR INLAS Fo) ce cu BTV, GUU0G 
LCEh.« GCE BE = eotud 
Lee he GC TE @75u 
JELS« €7ce CE = Feet) 
| 1S€3 6 S7EC GE = CAG) 
LE Fie WA = LAGE ot 
yO ae CO esxccC 1lslienk 
Psitie-< 1R = JAI) 
IST he EFCC YOIF) = Yolk) = Ab LdFuUt 
S74. SECE CONTE PNGE 
Lo fhe CALL FTIRANGL) 
Sta CALL SkIrfk dsc) 
TOR Fe RETLEA 
1¢73 (3 
147%. € ACCE FATHEMEUs LeLATtE VAR. BULNCS AND BACKTRACK AGAIN 
GHD. eece FEEL = TVECCETSIE) 
IS81. IF (2CCL -tTe C) GE Tu 2100 
€&2 C 
198 Sia NYTEME (LI) = TvoQutc iste) 
1454. IF (KINGASLICUL)I) ebiurc¥obecU5C 
iets ar 2z€le NYEMPUS) = & 
IS G6. OP = Xxeot (elu) =~ AtBETLUL) 
IST. DY = FLUATONTEMP (LD) — AYoEACUL) 
LS 2 de IF (OF wctT. LY) KidGaS(ICGL) = C 
1S 8%. eth KXULBETCOL) = FLLATONTEMPELI) 
1SSJ GE TE S00U 
ES} s C 
LSS2< ele §CGL = Ki GUL 
1993. NTEMPUL) = IvaNo(L Ist) 
1Ge4. IF (KINDASCILULID elddy21L 10,215 
LEG 36 ZELG NYERPCS) = 
Sue DY = xLotincdd = FLOATINTEMP(1)) 
iS¢?7. OP = xeyefeuLd =~ aALedcicoL) 
- 1SSSi- IF (OF et Teo CY} KUNBASLECUL) = =i 
1SC9. ZLEC XLAECECCL) = FLEATUNTEMPC1)) 
& Zul). ¢ 
4 2CG1L< ACCC EYSTA = 4USTo = y 
<CC2. 6c te £o 
{ eUG3e C 
¥ Z&C4~« ENG 
al CCU SubrELTinwc AcULT cl ILPAR) 
eC Se Ly 
} ZUG tis € Setvio MASTER PROGLEM; REALLUCATcS LINKING RESOURCE AMUNG 
5 z004 ¢ UNFEAGU SLUPKUBLEMS 
4 cCCGe CHALE KEEACE SCRIPTION UF FAKAMETEKS ® ## 04084 
my eclu.e é TIPLE = PARAMETER LNUICATING wHETEER UR ROT ANY SUBPRUBLEM HAS 
Ww éctile € tecty CAPLILITLY Slivel SINCE LAST MASTER PROBLEM 
* étive i SULUTL UW. lf NGT (LPAR=L)» MASTER PROULEM CAN He 
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7 


7 tee 
“Oly 


LESle 


G2. 


s 
leG3e 
LUS4. 
Leyo-. 
1896. 
197. 
L853. 
LES de 
(eco. 
1S€l. 
1IeCee 
1903.6 
1SC4e 
1s als 
1SCo. 
Loch. 
1603. 
1SC9« 
1S Fe 
Gite 
lol2-e 
1sl3. 
Kel4. 
1Sl D>. 
iS1l6. 
bTs 
Sis. 
ES i's 
lSéu. 
leek. 
[S22 
1623 
vcs. 
146256 
1SZo.~ 
G27 6 
FE23 6 
S26 
S30 
1S3l. 
1632-6 
1633.6 
S34. 
163%. 
183d 
1ST « 
“346 
IG3Y's 
1S40. 
1641. 
1642.6 
FS43 6 
1644, 
1945. 
1°40. 
1647. 
1543. 
1949, 
S506 


1Sfl. 


AAMAA 


AAMAM 


SC 


l 


4 


1CGL INULACS LRKANCHING VARIABLE CHCSEN 
[vin (Nicflts oKANCARING CIRECTIUN CFUSEN 


abl LPPEsitec vlkeCtlun TO LIST 
REST = LESTE +} 
IF (ICIsw cEu. ~L) IVbNUCLISTL) = ILOINTC(ALBCICUL) + ecTObLcc) 
IF (1CIn eee. 2) TVENWOCLISTLE) = LOUINTOXUBCICGL) « 2TOLdc) 
IVIC(LISTL) = IVIR*iLOL 
ICENCCLISTEL = EvAt 


REViot BCUNLS CN BRANCHING VARIABLE FOK FORWARD DIKECTIUN 
Tf CfCIe stue i} ALBECICGL) = VELECKEVENU) 
TF CICITR efLue 1) ALECICUL) = DoLEC(REVEND) 
RETLEN 
ENO 
SEBFPLUTIwe tKTRAK 


CACKTRACKS Tu StbteuT A PROMISING (UNFATFOMED) NOUE FRUM THE 
LIST GE STUKED ACDES. LAdST=iN=FIRST=UUT (LIFG) SELECTIUN RULE 
IS EMreLOCYED. 


{MPLICIi wKEAL#4 (A gC gk=HylePyR—-hWyZ) » REAL*S (BeDeXxV) 9 
{[Ktcuck#o (im-New) 
INTEGER* 2 Gre KINGASelLaepLEylagit 
INTECER*2 IPAKT, LiNCUMBbeI VbNU,gIVIC eI CBNO 
UCLBLE PRcetvisluw & lived 
FEAL At vou) 
COMMCN/SLUCK/ LIT UL ety ZTULPV, CTICC5T, 2TOL Ry ZTGLSM sy QROy CMA, USA UF» 
REG a Diy WA eg GPL yp uM yl pW ewe CN» QU2 NRMAX pNEMAA, WB 2 UCy 
BE gpWwhewiyWOeQKs WM eUGyNTMAX 
COMME N/oLULKRE/ LFP ART (igd) pREVBNDe IAC VAL, ICOL,LISTLy IT VAL,IViky 
NWPiVETsIPTYPE gRCCSTs LFEAS,ITPART(L 22) ,1NCUMBIice), 
IVBNC(D00),1Viv( 500) ,£08ND( 500) 
COMMPCKR cyALe lide), XLG(1L22) ¥B(600),X( 60) 4Y¥( 00) sYTEMP (00) pUSUM, UPRUDe 
UY, Ury0Py Ay ICNAME i2ds cd y NAME (ZO) yNTEMPI 20) 9 SUMINE @ MST AT? 
LUGsyi Rew’, LVANy LVUUT, TTCNT, INVERQ, ITRFRQGTTSINV, LFFE Ls 
JEULP yNKU se NCOL,NELEM»NETA pNLELEMyNLETAgNUELEM pNUETAY 
Pe€ buuddsy 1A C900) pLEC 252) DLAC I2 2) yKINBAS (ide), JH lou) 
NFEWE (3) = C 
{F Lisl is eMPTYs, KETURN (CUMPLTATIONS COMPLE TEU) 
fe (LISTE 2bG. OU) FETURN 
fF CICeNO(LisTL) ele. ENCVAG) GL TO 200uU 


GET NcAT NCCE FRCM LIST 
ICGL = iviltetste) 
1€ (1CCL tT. GC) GE Tu 40U 


NTEMP(1) = iLINT(ALB(ICUL) + ZTCLZE) 
ATEME (ec) = TVbBALIL IST) 

MLOCICCL) = adel tech) + Le 

XUB(ECCL) = FLLATUINTCHP(g)) 

IF (KINDAStICGL) «CT. ud GU Tu 1600 
KINBAS(ICUL) = U 

NITEWF (3) = 3 

GC TC luvt 


(cCt& = -1Cle 

NTEMF (1) = LLINT(XCRCICOL) + 2TCLZE) 
NTEMP (2) = IvbNDILISTL) 

ALBECICCL) = ALECieCL) = 1. 
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ABO. re MO mene keihin Nt Bie pe 


os 


a a 


L&30. CREITERMINEG BASIC VAR. ACLRKUWP) BETH MAX. JP= Uk DUWN=PENWALTY 
LBF1. OC 49CCO i=isttehila 

i ae IF GJFCL) wlee NkKun} GO TO 490u 

i . [fF (PLCI) «ct. PEC id) Gu TO 460€ 

LES+. If (PECLa «tee PEN) GG TG 4¥0u 

Sete PEN POEL) 

P30. TRC«P = i 

lg . [Gtk = =i 

le . NIEPP CL) = EPARTOULY © E 

beste REVENC = FLCATINTERYOl)) 

le4u. GC TO 490u 

le4l. 4eCC 1F (PLCi)d ober. Hen) GU TO 4900 

i . PEN = FUil) 

LF43. IRCKP = 

Les TILER = 3 

le4>. NTEMF (1) = TraARTild 

1t44. REVENEL = FLUAT OwTEMPGLD) 

LE47. 4SCC CENTERLE 

1643. LF ¢Gfune «tte YU) CO Tuo 4950 

Le4de C EACE UP= #NC LU nN @PEWALTY et ee Ue (DUAL-DEGENERACY). CHOOSE 
1é£0. Cc ANY NONiATcCGcR cASiC VAR. Ad BRAACFING VAR. 

FEGL« CO 4910 IelnP=lyiRenw 

LeS2 6 TF (utircnk) eLte NwUw) GL TO 4910 

LoS. fF (OrFaAnT CimGaP) «Cece 2ZTULcE) GO TC 4920 

peta. 453€ CONTIALE 

LESS. 4£2C PER = FULL ECWP) 

LESé EIR = J 

Letts NTEWF (i) = LPARL IL ECHr) 

1858. REVENC = FLEATINTEME(1)) 

{sss 45°C ICCt = sHCTRUwWP) 

itcu. Ch = *{JUbU) = PEN + ZTOLZE 

léel. NTEMP (i) = TEENT CUP) 

1262. EF CCE ohkTs Ged NTEPPLL) = NTEMFPCL) = 2 

ives. IF (IVAL 2GTs NTEMPCLd) TvAL = ATEMF(L) 

1t&&4%. C ERANCH UN CrUSEN VARS 

l&iéd.< CALL ERANCE 

LEGGE» SG€C IF ClbIk «che. =1) ERTYPE = 0 

1 ie Tr C(ECIR «&Q. 2) TPTYPE = <4 

1éé5. KETURA 

LHED a ENC 

Ltt). SL@FCLTINE ERANCr 

Lek. t 

lis ( tk éhemes UN VAR lABLE ACICUL) AS CeTERMINEC IN SUBROUTINE PENLTS 
ltT se c 

LE U6 IPMPLICTi REALS (A gpl ygcmtiglyPeRo—he 2) » REAL¥B (Beg 9X9Y) » 

kG Pave i INTeotk*4 (CI-Nye) 

1276s INTEC ER*e JEagKiwtASslaglEg TA, i 

ltive INTEGER LhART, iwCUMo, LVBNOyITVIC,LCBNO 

L&T. LCUPLE PReECISTICN € lauuu) 

1E79 6 Real f(ouu0) 

1t6U. COMBMUCR/ Soc CUKS CTU CEP CTOLP Vy ZTICCST, 2TOLRS sy ZTCLSMy CRO» QMA gud A ep UFi ye 
1e8l.e } EUs VEL Ae GPL p GMT eZ pd Lee GN» CUy NRMAX pNEMAX wine 
LEG2s c wt pwr edly Gah e GM puGe NT MAX 

1€83. COMMER LUCKE/S UFPERT Lice) yREVENOeINC VAL, TCOLyLISTL eI VAL IUIRe 
1664. 1 NPLVCTy LPTYPE sKUC ST» IFEASs [PART(122), INCUMB( Ace) 
1E85. P3 IVbAL(>500) eTVIUC SUC) pL CBNO(50C) 

lttoe COMMER certehi de dy XB 122) 9B16U) pXC CU), YLOC) p¥Te MP (60) »O0SUMs OPRUUe 
Lear. 1 UY y Lt »UPyAy ICNAM( L229) NAME (ZU) pNTEMEC 20) ¢SUMINE yMSTAT, 
L1E83 . 2 LU eI LKCwP, LViNe LVUUT, LT ONT, INVERQsITRERU GL TSINVe TIFF tLe 
LEuy. 3 JEULP yNKUW, NCULy NELEMy NE TApNLELEM, NLE TA,NUELEMyNUETA, 
1890. 4 Led lute LA (SUI) FLEE 22) LACI2N2) e KINBAS(L 22), dH (00) 
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Re ag en ene Cry Me 


AP yw a 


Sa sen Ya ay are 


en 


ce) 


PAPE AS 


LtéED. PEG ah CApsevela) 

ies NTEMP 41) iVINT (ura 

L227). DP ce FeLATINT EMP) ) 

EUG2 3 TF (OCP et le LZTULLZED eUme LUP «GEe LewéTuiZE)) GO Tu 50u 
LY iy Be EF OV OGRE «the, Ged CP = be = QP 

li?v+. Le COP «ots JEPART MI) ot TO SEE 

t7to DE YOlosud FDEP AR T41)/0P 

1776. be TE 32h 

L777. SHC Ve YOlivcouI*( 1. tr PARTILII/ the = UP) 
Vitae 220 HF COE 2b. Poel PoClY = Oe 

L279 ( 

17E0. See CONTI Nie 

liel. lcce CCATINce 

l?e@2. C 

L7236 c CuMPUTL LARGEST ouMukY FENALTY AND TESS FOR FATHUMING 
1784. PEN = Ce 

178 VC 2CCC i=ipwkla 

Ligh. [LF C@SECLY ekte NKUn) GU TO eudUu 

L787. IF (PECT) wule PEN FEN = Pull) 

LREX< eCGC CONTEAGE 

1?@o. cP x¥(lUod) — PEN * eTULce 

17S3. [VAL = tuidNTluF) 

17S1. EF CEP «els Ue} VAL = PVAL = 2 

LIS 2 TF CIVAL eet. INCVAL) FC TU suud 

1753. {01k = u 

(154.6 RETLEN 

pesos C 

LiS6. PRKUoLEM NUT raATHUMeOs CRECK FGK FORCED BRANCHES UN X(1) 
LEST s 4CEC NIBRPCZH) = C 

17S%. OC 39CC 121 e\RUw 

UTS. IF (JFOL) ebte wkKUH) oJ TU o90u 

PESO. TF (PUCI) e&T. Put ld) GO Fad Joul 

POG ise cP CUB =~ PDETD ¢ ZTOLZE 

1g02. NTEMF (id = te NT (LPS 

LEC3. IF (UF ei To Cod NTEMFILY = wTEMP(1) = 1 
1EC4. IF (NTEMP OL) e&T. INCVAL) GG TO 4590C 
PECs C FURCEU ukKANCh JP LUN AGT) 

LECh IvAL whetrdld 

1EC7T. ICTR = =, 

LEC5. NTEMF UL) = LPARTC(I) + 1 

LECS. GG TG. 3fuu 

lé)). ig 

lelle Z6CC OP = PUlebd) ~ PUCT) + 2tGlde 

Let? « NTEMP(1L) = IUINTIGP) 

EOL Gs TF (UF .eT. Ged NTEMPFIL) = NTCMECL) - 1 
Lil+. IF (NTEMPULd eCT.e INEVAL) GU TU 3500 
LEIS. C FUkCeEU BRANCH UGwWN UN XCT) 
lvls. ITvAL = NTEWFLL)D 

1E17. [corr = | 

ltid. NTeMe (i) = LPAKT AL) 

Lele 27CC IRCHP = | 

Fae ICCL = JHC I RUwP) 

le2l. REVENE = FLLATINTEMP(i)) 

L&Z2's NTEMP{2) = 1 

lddde CALL EKANCE 

LEz%e SSCG CEN TERUE 

LE Dd. Ir (NTEMP (2) 26T. C2 Gu TO SuuU 

lEzo. G 

LE27. C WO FURCEUG CRKANCHE Ss CHULSE ERANCHING VAR. AND DIKECTIUN 
Lt2 se PEN = Ce 

LEZ}. TRCWwPR =u 
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ee ee ee eee eee ey) et Coen eee 


ROS CSE OE 


a 


MIT AON 


17d. l Bele Chew Ap ePe etl eed swhewh sy wNeGUe NRMAXK pNEMAAe Bele 


eos. Pa wt adh awk, elbows were NTMAK 

1710. CUMMEN/uLULNe/ UEP ART (Leddy Kivohd pL AC vALsICOL,LISTLeLVALyluiRy 
ERiL. 1 WPL VOT, PTYPE px CUST, TE tA a, LPAKTIL22) ¢ IT NCIMB iledd)s 
L712. Ps ivoNvisvIuvie ll vViut ECC) »pICBND(5UC) 

FIPS < CUMPULN cgabclicn) s AUB Lided ye d(GU) es XCGU) Y{ OC) VTE MP L600) yUSUMs OPKOL: 
1714. L UY pice hy Ay ILNAM( Leds 2) 2 NAME (20) pNTEMFE( 20), SUMING pMSTAT, 
FURS < Lots piRinPs ivin, LVUST es LTCNT, INVER LT RERQSITSINVALFRFEL, 
LT LO. 3 JEULPyNmuae NCULs WoL cM NE TA pNiLELEMeNLtE TAgNUELEM,NUclA, 
Tt. 4 Let ivud) slal dud) plLEbede) LAC LZ2) eKINBAS(1L 221, dH (ou) 
L713. CC 1C Lelyivmua 

1719. IF (OFFARTiLD e& Te ETULZED Gu TC § 

172). PUETE = teze 

U2. a PECI2 = Leté 

1722. PEEL = Eeue 

Erer 60 14 19 

172%. & PUGCIY = oe 

rele FDETE = so 

LVh2ars PECT? = Bs 

LU. IC CCNTENCe 

1722. C 

1729. OC LCCC J=leNeUL 

1739. IF CKINSAS Fut oT. 6) GU Td BOOT 

1731. TF ((xUBis) ~~ xALB( Jd) ere. LZTULZE) GO Tu 1000 

1722. CALL UNPACKR() 

1733. CALL FTIkKatil) 

i734. IF (KINDASV) «<EQ- C) GU TO 30 

ET25 6 tC 20 T=iyNrneun 

1736-6 2C Yd!) = vil) 

Lasts C 

1735-6 C ehECR FUR FLRUCU BKANCH ON XJ 

1739. 2C IF (J eke e NeUW) OC Tu 29 

1740. CP = x(idbd)d ~ YEICKS) € 2TGLde 

1741. IVAL = LuINT(0F) 

1742. RE CSP eh Fe Ved WAL = IVAE — 1 

1743. TF (fVAL 2GT. INCVAL) Gu TU du 

1744. ICTR = c¥ninoAstd) + 1 

1745. LF CICiR etue “hd REVENU = SNoL (ALB (J)? 

lib. IF CICIw etee Ld KEVENY = SNGOLOXLE( 4)? 

1747. CGt = J 

11456 CALL EbANer 

1749 GG Tc 1e0e 

LTEG s € 

ETSI « €¢ CC Sc f=) sAKGa 

URS2e {[F (yt (1) elie WKLEW) GU TG 200 

ETSse EF (DEFARTUL) ok le 2TULZEY GO TC 50C 

LISS. C 

Ltes. C CUMFuTE UP PENALTY FUR X(i)y XJ 

PTES. 1CC IF CY C1) eT. —cTulPy) GU Td 2uC 

LTS ts Ce = Yiluoui *OCFRPAFT(I) = Led/sYCT) 

1755. TF (DE oil. Yi luddII) De = V¥IIUev) 

L759. LF. CBE st Te PUETTE BUCTY = UE 

ITED <« GG Tc 3uu 

¥UGL « L3 

1762. c CUmrsTe GOAN PewALTY FUR ACT) ¢ AJ 

L756 2Z2C€C FF CYL) eeTo EFULFY) BO TO 3U0 

176%. CE = Y¥luouI*#UFr AR T(i)/YCT) 

1765. TF (DE oth. YORI) Ve = VILOBY) 

176. IF (OF et Te POUCI)D) PECL) = VE 

1767. c 

L7é3-6 £ CUMPLTE GUMLRKY PENALTY FOR x(I)y XJ 
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ee a EE Ha Ay ae VCS ee tb ee eae y Ce eee oe ee " < F 


LF 


2c’ 


aa 


EEG 


2eCC 


ANDAN:e 


AANOAAAR 


IVAL = JuotNTtur) 
FP NCEE Sho wel EVAL = -PVAE = 2 
PE LOUNSTAY se. CN) eke CLVAL eh. TNE VAED) 


cuMPETe iN TcucK AND FRALCTIUNAL PAKTS 


DC &CC L=leWkKun 
TPARTCL) = LiuinTeacl) + e2Ticde) 
NIEMP (LY = EPART (IO 

CFPART(L) = ACL) = FEUATENTEMP(1)) 


eHECK FUR ALi aNTECGER SCLLTIGN 


De 2@c€ f=ieNkKonW 

TF (Jel) ott. Nuh) GU Tu 20 

LE (OF FART (C1) ewes. 27ULLE) KeTURN 
CONTINUE 


sULLTIUN ALcwIWTEGER? INSTALL AS NEw 


TEREaS = | 

{NCVAL = IvVAc 

O02 sHECG c= LyNe Ck 

TF (x iNGASCG)) COU, TUL, LUOU 


INCLME(u) = iviNTi Aube) ) 
Ge 1G fuou 

{NCLMB(G) = lolieT(kLb (sd) 
CONTINGC 


OC LLCC teh ykUW 

FEGuU = sdriad 

INCLMO (iL0e)d = LPART( I) 
CONTEINGE 


CURRENT PRLGLEM NG CUNGER GF INTEREST 


MS PAT = wil 

KETLEN 

ENC 

SLBRCUTING FENLTS 


COMePstes TUML iN’ Ss iMPRUVEO UP= ANU DCWN=PENALTIES 
COMCKY FeNALTY FER CACK NONIATEGER oASIC VARIABLE. 
FOR Furlto ohstvChes UN BUTH BASIC ANU WONBASIC VARTAbicS. 
ThE avotAle UF FERLCLU BRANCHES ON BASTC VARTAGLES» 
cRANCMHING VARacLe iS CHUSEN TC tE THE ONE WITH LARGesST 
ASSCCLAT&U LP= UK GUWINRM PENALTY. THE FURMARD BRANCH IS MAve IN 
THE DintCTICN GFPCSITE Tu THe MAXIMUM PENALTY. 
CURRESPLRALING TU THE BRANCH IN TRE SAME DIRECTIGN 
MAXIMJM FEWALTY Lo aJUEU TO TRE LIST, TE Bf 
THE or AWeMI NG PReELCESS ITSELF Ls CARKTevU SUT IN SUsRGUTI NE 
FRARCH, witl Ch GS GactbeD FROM SLBSCLTINeG PENLTS. 


IMPLICIT ReAL¥4 (NyCytm rte leP eke 2) ¢ REAL*SY 
twlhevern te (l-New) 

INTEC ERP ¥L Ure KLiVNGASstA,LEelarle 

INTREGER¥. TP ART, iNCLMOy IL VNUs LV ITO ef CBND 

LCUBLE Peelloluw Etludu) 

KEAL f(buu) 

REAL PUloU) pPULeC) pPLlou0) 


COMPMOR/GLECKS CTU dtp ZTULP Vy CTUELSTy 2ZTOLRS yp ZT CL SMe GRU e MAG UGA puke 


Uso 


BASIC VAR. 


TNCUMBCNT 


aLSU CHELKS 


EXAMINED LATER. 


(brDeXe¥ de 


1€80.4 CALL CARPAL K(UCULP) 


1587. CALi FIKANGL) 
PES. Icul = unt lkewe) 
15d 76 DP = (x¢inktard — ALACECUCIIS YE LRURP ) 
}5S9. 6€ TE 20eu 
< ES Le (e 
1552. C LeAViNe VAKLASLE EACCeUS ITS UPPER 3CUND 
¥SS3. Cc 
Pease ECGE EP = PeELY 
1595. CG ESC J=] 5NCCe 
1556. IF (KINGAdtod eoTe GC) GU Tu 150C + 
PSST '< {F ((xXectu) = Xebh dd) eh Ee CTUL“ZE) CO TO 15900 
1fS3.. CALL LNPalk (yu) 
LEG 3. CALL FIKANGL) 
Lé€C0.~ IF (KIRtAS bud ecee Tad VE TU 226u 
1éC1. TF (¥Clnuwe) = 2TULKPV) LoVUel2Ze5r1225 
1éC2. LéeCC if (C¥ Cinuwh) + CTULPV) Le25,icge9e15CU 
1EC3.- C 
1604. léz& Ce = VWOELSJI/YtirunP) 
1éC5. [TF (CE = GF) Ledus isdlsi dud 
LEC. E256, SECEP Sy 
1¢é07. CP = CE 
léc3. 15CC CCNTINte 
1é€CS. C 
Fe1L9 [r (UCCLR ebwe GC) RETURW 
Leile CALL UNPaACK (UCU) 
Tél2. CALL FInAwtlh} 
1613. {CCL = SHUT Rewer) 
1614. UP = (Xt Rene) = KUECILULIISYOLROmP ) 
1615-6 C 
lélo. ECCC IF (KINGAS(JLULP) eEwe vd VE = LP + KLOIJCCLP) 
EGE ts LF (KINBASt CULE) eEWe mA) Uc = OF + XUBIIJCOLP) 
1613. NPITIVET = 2 
1€19. RETLRA 
1€20. END 
1é21. SLEROLTING TeSTa 
1622. C TESTS LP=uPTIMAL SULUTICN AT CURRENT NODE FUR FATHCMING. 
16236 C FATFUMING GLLURS IF 
l€Z4~6 C (i) GP FRUBtEM AT CURRENT WOCE ITS INFEASTecLe (MSTAT = WN) s UR 
1625. €C (2) chP=—cPTI Mac CdueC TIVE VALLE CIVAL) .LE~ UBJECTIVE vALue OF 
le26. C ConkKeNT INCUMecNT SOLUTICN CINCVALJ 3; OR 
léé7. € (3) LePecPTIMAL SGLUTLUN SATISFIES INTEGER RESTRICTIOGNS. 
LE246 C 
16296 TMPLICIT wehl*¥e (AgCybmHe CeP ep Keay l) y KEAL*®E (Gp aXe) 
FE20%< 1 INTEGcR*e (1-iy wd 
bGOSE Ss INTECER sEeRINBADS sp tAylty LA, iE 
1é32. INTEGER#®2 [PAnT, INCLMOr I VOND, I VICE COND 
1€33. CCUBLE PAcCisoItW clluvJ) 
1ti4e6 ReAL &ldvci 
L625. COMMON /oLCEKS Llc CEgpcTULPV ey CTCCOSTs 2TCLK Jy ZTCLSM yp CKUg OMAy WA gE ig 
1624. : wEL yp ebi edb ee PL ey Mie edewd sy UF UN 9 QUy NRMAX pNEMAKy eS ele 
{ LEST. wo peb pubs ele eRe eM pQGe ATMAX 
* 1633-6 “COMMER ELECKe/ DFP ART(i2d) pREVGND SI NCVALy IL COLe LI STL yp VAL sIUI Re 
lés3. 1 NPIL VCT,LPTYPE,RCCST, LFcAS, TPART(L 22), 1 NCUMb(i2d)s 
16436 < Iv8SNC(>Us) eiviUtScC) eLCBwO(50U) 
1641. COMPOCR cp Xeclace) » XuBbl edd ed OU) 2 X060),Y( 60) pYTE MP (O00) ,0SUM, DPROUe 
2 1642. 1 CY euectylPyAy LENAMC A229 co) ep NAME MLO) pe NTEMFE( 20 Dp SUMINE @ MOT AT, 
y 1643. é TUBS eT KUWP, TViNe LVUGT eS LTCNT se INVER LTRERG pL TSINVe EEE le 
1644. 3 JEULP ey NRUWy NUULs NELEMe NETAeNLELEM Nit TAyNUELEMeNUETA, 
v 16455 4 Led hucuds LACSUGI PLECEZS2) LAC LZ e) pKINBAS(L22)_ SH (CU) 
® 1645.6 CP = xliuby) + CTULZE 


‘ 136 


TF 


VE256< C EAST VAwLArLE CN Kun LT FACES t€lLOw ITS LOWER cGUUND 
LE2u6 LCC PE = KELGCEECCES —- KROL 
P52 « Te (CE sike LPI Gu TC L000 
LS28.6 {PTyPe = VU 
: Reet Ge TE 250 
1630. C 
bea « € EASIC VARIABLE CN Kum I EXCEEDS ITS UPPER BOUND 
PE SA 200 bE MELE = AGEL IC CE? 
et [FP (GE «Lee CP} GU TE Love 
O34. IPTYPE = -1 
29254 Cc 
FEB. Z2&C IROWP ] 
DEST « LECCE CEKNTENLE 
P2396 RETURN 
| pe. ae ENC 
1240. SUBRCLTINE LCHUZCE 
if41. C 
ib42. C SeLECTs PlVUuT CcCLUMN JCULP FCR CURRENT CUAL=SIMPLEX iTEKATION. 
15436 € Sc¥S JOCLY = U IF LP=PRCSLEM AT CURRENT NCOE IS INFEASToOLE. 
1544. Cc CTRERwLSLC, CHLUSES YCULP TU MAINTAIN PRIMAL~GPTIMALITY 
1545. ¢ 
15460. IMPLICIT wReEAL¥4S (AsCrE=HyCyPyRowy 2)» REAL*S (BeOyXeV)¢ 
1547. 1 INTECER¥G C1=NyW) 
S436 INTEGER. Shep KINEASsiAygLEsTAe lt 
15456 INTECER*2 THAKT, iNCLMby LVGNUsIVID,LCBNOD 
L550 OCUBLE PRcCISIUN E(LlUvO) 
Pes i. REAL f#(oUCc) 
S26 COMMEN/otLULK/ ZiCL Zt yp dTULPVy ZTICCSTy, 2TULKI » 2ZTCLSM ys ORUs QMAr QbA pF I 9 
S53 6 L WEL webb yp whe dPLe GMI pi dowly QF 2 GN ge QU, NRMAX pNEMAXs UB ye UCye 
Peete c BE pate Oey WO QRe eM OG ye NTMAX 
Ub ihe COMMUN/ SLURS UEP ERKT(LocdyREVOND INC VAL ICOLsLISTL eI VAL,IulKe 
LES. NPILVET,IPTYPEsRCCSTs LFEASs LPART(L e2)e I NCUMBD(1 22), 
Seva Z LvyBNvtoUvI) pi vIDISOC) ,LUBND(500) 
6 “cc MMCN cyAL Bice dy ALB (122),B46 00), X( 60), VOC) sYTEMP(00) eUSUM, UPRUDs 
! Ve l UY FE rR Ay ICNAM( 12272) ¢ NAME (ZO) pNTEME(203_9SUMINF e MSTAT, 
OU. 2 1LUSJSylmCwPy LVINy L VOUT es LTCONT, INVERQ,TTRERQsITSEINVeTFFE Ls 
LS6L « 3 JOULPeNKO we NCOLyNELEMy NE TA pNLELEMpNLETA,NUELEM eg NJETA, 
L562 4 bed lewis iA SUu) gLEd edd) LAC LE?) sKINBAS(L 22)2JHl00) 
P2636 C 
L640 JECLP = vu 
| et ie er JF CEFTYPE .EQ. ~1} wo FTO 1000 
ore ¢ 
L567. € Leaving VARIAnLE FALLS BELOW ITS LOWER BUUND 
1 56 3:0 € 
L569 4 Ce © we heeee 
LS 70% CO SUC J=l,NCUL 
is7l. IF (KINGADSIU) ebT. UI GU TO 200 
LET2 6 IF ((xbolu) = XLolsd) eLee ZTULZE) GCG TO 500 
Peta~ CALL LAPACK (SJ) 
1 TAs CALL FIkaNGL) 
Belt Bo Fr LF (KINGAS( J) eb. 1) GO Tu 206 
. 15766 TF (Y¥CIRUAP) + 2TOLPYV) 22542255500 
erate eCC TF CY CTRUWP) = 2TULPV) S5O0,225e225 
hes C 
nc 157). 228 DE = Yilubvd/YiTRUAP) 
Fs ae 138 I (Cte = UVR) slu sree, 2do0 
= 13 256 JGGEP = J 
5 15A2. UP = CE 
: bad 2 Je SCC CCNTIALE 


(JCCLY eres. J) RETURN 


ree eae 


oa 


AAAR 


an 


AAA AA 


DAA 


1cCCe 


o 


ve 


4CC 


CALL IfvekT 
LTSINW = & 


uLcAk SIMPLEX CYCLE 


CrHCCSe #FIVCT RKUnw LROWP 

CALL CCthude 

IF (iFCwr eCTe UI C& TU 40U 

MSTAT = wok 

6€ TC luu 
CHCCSc PIlyCT CULLMN JCOLP 

CALE CCHULC 

IF (JCOLP scue UF GE TO 150 

IVIN = sUULP 
LPLATe wmivHi=hAKG STuES TU REFLECT NEw BASIS RESULTING FRUM 
CURR NE SIMPLEX Plvul 

CALL LPoc Ta 

{TCAT = LFECAT + 1 

LTSINV = iTSINV # i 
CeCluc wrtTrte Kk Te RELNVERT CURRENT BASIS 

IF CUNELEM 2GT. 5S0tL) edhe (ITSINV .GE~. INVFRKQ)) GO TO ivdU 
RETAVeRSION NUT NECESSARY YET; wRITE GUT NEW ETA-VECTOR FGR 
CURRenT SIMPLEX Pl vuTt 

CALL wRela 

GC TE 300 

END 

SLBRLELTINE CUHLLR 


SELCLTS FIVCT KLw IROWP FUR CURRENT DUAL-SIMPLEX ITEKATIUN. 
SETS ikGWP = U IF CURKENT BASIS LS OPTIMAL, CTHERWISE, I ROWP 
1S CHUSEN Te GE ThE RUw wITH GREATEST PRIMAL=INFEASIGILITY 


IMPLICIT mt Al¥4 (AgCycmrylyPyR—wy 2) ¢ REAL¥S (Bed eXeV) 9 
1 INTEGER*4 (1L=Ny Q) 

INTEGER* ec Ute KINGASeLAgLlLEy lA, ITE 

INTECER¥2 ITPART, INCLMB, I V8NOeLVIC eI CBNOD 

COUELE PRECISION &€(10G0) 

REAL £l5uu) 

COMBCR/6LUCK/S ZTCLE Eg dTULPVy LTICCSTy ZTOLRJ yg ZTCLSMy CRU ge QMA ba VFLy 

wep LBL yA QPL WMT G2 QL a Fy UN ep QUs NRMAX pNEMAXy WB pC 


< WE pdb guby Wl yQhs uM »GGe NTMAX 


CUMMCN/SLULK2/ DEP AKT (12d) ¢ROVBAC pI NCVALyICULyLISTL IVA yIOIR, 
1 NPLVUT,IPTYPteeRCCSTy TFEASs IT PART(122)¢1NCUMBIicd), 


‘ IVBALC( 500), Lviv S00) »sLCBND(50C) 


COMMCN EprXcbliddds XGd6122) 18160) XC EO) eV (OC) eYTEMP(60 ) eUSUM, UPRUUs 
DY yUcyUPs Ay ILNAM( lL 2dy cd yp NAME (ZU) eNTEMF(20),SUMINE ee MSTAT, 


1 
ra TUtdsikuaPs lvIvyTVUUT, IT CNT, INVERG,ITREROQ,ITSINV,IFFELs 
a 


JCCLP »NRUW, NCUOLyNCLEMy NE TA eNLELEMpNLE TA, NUELEM »NUETA, 


4 Peelecuds da (auGdslLElerd) FLAC lec) eK INOAS(1L 22), dH060) 


LeLCSe Rw wiTH GREATEST INFEASIBILITY 


IRCWwP = & 

BP = “2PsE1C 

DC 1UCC [=igivkKlan 

IF (1 etue Ibs) GL Iu i000 

IcCt = JHtl) 

IF (XL) etie (XLB(ICOL) — 2ZTGLZE)) GC TO i00 
LF (Xt) .CT. taut icut) + 2ZTO.2dt)) GO To 20C 
GC TC luuy 


138 


| 
| 
| 
| 


as 


°OTP 


a 


14C03. 
14U4%. 
1409. 
14Co. 
14c7. 
14C3. 
14CG. 
1410. 
141L. 
1412. 
1413. 
1414. 
1415. 
1416. 
1417. 
1413. 
1419. 
1420. 
14Z1e 
1422. 
1423. 
1424. 
1425. 
1420. 
1427. 
1423. 
142). 
1430. 
1431. 
1432. 
1433. 
1424. 
1435. 
1430.6 
1437. 
1433. 
1479. 
144). 
1441. 
1442. 
1443. 
1444. 
1449.6 
1448.6 
1447.6 
1448. 
1449. 
1450. 
145i. 
1452. 
1453. 
1454. 
1455. 
1456. 
1457. 
1453. 
1459. 
1460. 
14él. 
1462. 
1463. 


2CCC 


4Cic 


GC TC 6uVvU 

IVIN = JEGLP 

CALL LNPACKIJCULP) 

CALL FIKAN(A) 

CALL Crudr 

CALL LPocTAé 

ITCNT = LTCAT # 1 

ITSINY = LTsinv + 1 

IF QNFIvUT «cQe vd GCL Tu 40lu 

IF (NELEM -GT. 5000) GU To Loud 
CALL wWRETA 

TF (1USilwVv «GE. INVFRe) GO TO LCOC 
IF CITCNT «Gee LTRFRWI GO TO 6U0CO 
GC TC lovy 


RETURN 
ENC 
SLUBRULTINE BANCHLINITBUO) 


MASTcR PRUGRAM ECR GRANCH=ANC@ECUND INTEGER PROGRAMMING ROUTINE 
ALSC stkKvES AS MASTER PRUGRAM FOR REOPTIMIZATION VIA QUAL 
SEPPLEX Mt THUC AFTER A FURWARKD BRANCH, 


CeateeeeeDE SCRIPTILN OF PARAMETERS * #8 4x oes 


Cc 


INIT6D = INITIAL LOWEK BUUND ON MAXIMAL OBJECTIVE VALUE (INPUT) 


CHO AREER RE REE EERE KE SET EERE EERE EKA ESE EK 


aA 


1é¢ 


2cc 


1 


L 
é 


1 


é 


PWN 


IMPLICIT REAL*®4 (AgCyEmty lg PyR—-we 2) » REALS (BaD eXeV) ye 
INTEGER*S (CI-N,&) 

INTEGER*2 Ube KINGAS sLAgLEy iAP LE 

INTEGER*2 PART, INCUMB, I VBNDsIVIC,ICBND 

COUBLE PkcCISICN c (10U0) 

REAL Alduu) 

COMVMCAR/>bLUECKS 2TUL ZEyZTOLPV, ZTICCST, 2ZTOL Ry ZTCLSMy QKUy CMAy QUA pu ly 

GEC s hls tAr UPL» UML e CZ pi pQF 2 CN» QUe NRMAX pNEMAXK, UB UCy 
CE pW eb e QU ey UR eM ep UGy ATMAX 
CCMMCA/BLLCK2/ UVFPART( 122) sREVBNU eI NCVAL, ICOLyLI STL eI VAL LDI Ky 
NPL vCT,LPTYPEyRCCST, LFEAS, TPART (122), 1NCUMB( 122), 
TvoN0(500),1VIU050C) »£GKbNOI1500) 

COMMER Es AL Bl lec dy LBC d eed BOC) X00), V(OC) sYTEMP( 60) pOSUMs UPKUD? 
VY Oty LPy Ay ICNAM( Lody2)y NAME (20) »NTEMP(20)2SUMINE sMSTAT, 
TbodelRCwPy LVINg IT VUUT,LTCNT, INVFRUe LT RFERQGITTSINVSITEFEZ,» 
JEELPaNRU we NCULe NELEMe NE TAgNLELEMpNLETAsNUELEMyNUETA, 

Te (L000), LA(500) pLE( 252) PLAC 122) sKINBAS(1 22), 5H(00) 

LISTL = vu 

INCVAL = INITbBL 

TEST FUK FATHUMING 
CALL TESTA 
T€ (MSTAT .Eue &HL) GU TG 200 

CURRENT NUDE FATHUMEDS BACKTKACK TO LAST PROMISING NOvE ON LIST 
CALL EKTKAK 

IF LIST I> EMPTY, RETURN TU MAIN (CUMPUTATIONS COMPLETED) 
IF (LISTE eEGe Ud RETURN 

USE PRIMAL=SIMP LEA METHOD FUR RECPTIMIZATION AT NEw NODE 
CALL NCRMAL 
GC TO lus 

CURRENT NUGUE NOT FATHOMED; CCMPUTE PENALTIES 

PKANCHING AT CURRENT NGUE IS DCNE FROM SUBROUTINE PENLTS. 
CALL FENLTS 
TF (ICTR) 4€u915 6,40 


RETNVERT CURKENT BASIS 
L339 


os 


ie eR COOaN 


fw te be Wh bo td da a ds as 


CAAA RKHA AH ininin 


7. 


ANAABA 


2ccc 


1scc 


COMPEN ceAL (Ade) y ALBIL 2) 25100), xCeUI VY (60) »YTEMP(6U) »DSUM, OPKUDL, 
UY yb tr le Ay LLNAMO L229 cde MAME (20) sNTEMF (20), SUMING @MOTAT, 
luUcJdediKCwh, IVIiWe TVOUTsLTICNT, INVERQsITRERQ,LISINV, TFFE Ly 
JLUEP pNRU we NCULs NELEMy Nc TA NLELEM,NLE TA,NUELEMyNUETA, 

Ted leucds TA(SCO) pLEC2Z9e) pLACAZ2) »KINGAS(L 22), 5H(00) 


fwnre 


OC LOCC L=adeNkCa 

K( 1) = xX¢1) ~ YC 1) #0P 

[TF (NF IVUT ecwe 1) CO TO dud 
KINBAS{JCULP) = -( KINBAS(UCULP) + 1) 
{VCLI = yLULP 

RETLRKA 

X(TROwP) = Le 

IVCUT = JHCLRUa«P) 
KINGAS(UCLLEF) = Ik CWP 
KINEAS(Ivecl) = Le Tyee 
JHCIRCwP) = velLLrP 

RETURRA 

ENC 

SLBRCLTLivce NUKMAL 


SERVES AS MASTER PRUGRAM FCR LINEAR PROGRAMMING CUMPONENT 
(REVEStC PRIMAL=SIMPLcCA METHCO). 

SLBRUGTING ADAPTED FRUM LINEAR PROGRAMMING CODE UPM=l»s wk ITTEN 
BY JeA. TOMLIN (UPERATIONS RESEARCH, STANFORD UNIVERSITY) 


IMPLICIT KeAc*¥4 (AyCyEmHyUsPeR—we dd) » REAL*S (BeOeXsV) 
i INTEGCR¥*4 (lie &) 

INTECER*2 Une KINGCASytAgLEyIAgIE 

INTEGER*2 LPARKT, INCLMB,LVBNUe ITV 10s CBND 

OCUBLE PreciSICn E 41000) 

REAL f#(ou0U) 


CCOPMMCH/BLUCK/ LTOL ZEgLTOLPVe2ZTCOST» 2TOL Ky ZTCLSM 2 QRUs QMALQKA SUFI, 


L WEU, OBL yA ep UPL oe CMe ad pulp er 2 Ns QUs NRMAX pNEMAX, Ue QCe 
2 we pe Hedlhs dbs wRe UM eC Gey NTMAX 
COMMON/SLULK2/ UFP ART (122) pREVBND pI AC VAL eI COL,LISTLel VAL eLUI Ky 
i NPI VUTs IT PTYPE pRCCST, LFEAS, LPART(1L22)¢I1NCUMBI 122), 
< IVBND(500),1VL00500) ,1G8ND(500) 


COMMON EpXLEEL Se) ys AUH(L22) 93100) 94060), V(00) pYTEMP(60) ¢ DSUM, CPRULe 
UV yLEyDPyAy ICNAME 12292) »NAME( ZO) pNTEMP( 20) ySUMENE p MSTAT, 
Tubs IT RKLWP, IVIg TVGUTe LT CNTs INVFRee ITRERU GIT TSINVeTFFE Ls 
VCULP pNRKUWs NCUL, NELCEMe NETA pNLELEMpgNLE TAeNUELEMygNUETAy 
Tot iQOU), LA 500) phel 252) gL ACI2Z2) »pKINBAS( 122), 5JH( 60) 


funre 


IF ¢(ITSINV «iTe INVFRE) GO TO 150C 
CALL INVERT 
ITSINV = U 


SIMPLEX CYCLE 


CALL FCRMC 

CALL ETRAN 

cALiL FRILE 

TF @JCCLr «.GT.e U) CeO Tu 3u00U 

IF (MSTAT eEbe wl ) GL Tu 2000 


MSTAT = wbeh 
GC TC evdc 


ZUCC MSTAT = uw 
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be than Se A ik Teeth pn A past os AP eed 


128l. C SUERLGUT INE ADAPT cL FKOCM LINEAR PRUGRAMMING CULE LPMel, wk TTTEN 


12826 (3 BY JeAe TUMLIN (UPERKATIUONSD RESEARCH, STANFGRD UNIVERSITY) 
1283. C 
1284. {[MPLICIT REAL#4 (ACE ng OrPyR—wy id) » REALHS (BE yDeXeV) e 
1205. l INTcoth + (1-N,Q) 
1286. INTEGER#, Shs KINUAS yl AyLeE p LAg let 
1267. OGLBELE PRecloluN cd lGud) 
3 1283. REAL Al(>uuv) 
1289.6 C | 
1290. COMPCA/ BLUE KS ZTUL Zep LTO P Ve ZICCST, LTULRS ep LTOLSM ep URUy GMA UBA QF I ; 
1ZS1. 1 Ge, OBL eA QPL PUM Le ul eQ)s QF s CN e GU se NRMAX pNEMAXe QOy QL 
1292. é GE pWitewh whe GRyQM pQG, NT MAX 
1293. C 
1294. CCMPCR te Abelicc dy AVbbi ded re Goud eALEUIe VLOC) eYTE MP (60) ,USUM,LPKUDy, 
1255. 1 DY yDEgUPy Ay ICNAME Lec y ede NAME (ZU) a NTEMPOC 2039 SUMINF »MSTAT, 
by 1296. 2 LuUBUy RAP, IVINe LVGUT SZ LICNT, INVERU,y TTKEFRQSITTSINV, LFFE Ly 
j 12ST. 3 JCULP pWKOWe NCCU, NELEM, NE TA gNLELEM NLE TA, NUELEM pNUETA, 
12936 4 LECLOUCU) TAL 9CUI LEC 2392) LAC L 22) sKINBAS(1 22) 9 dH(00) 
| 1éS9-6 C 
13CU. € Shift Tt ANU & UF J ELEMENTS 
| 12Cl. (2 
| 13¢C2. NF = NEMAA = NLELEP t+ 1 
1303. INCR = U 
1304. cG 10CC L = NF »NEMAX 
f 1305. INCR = INCK + 1 
| 1306. TECNLELCEM + INCR) = Led) 
Is€ 7 E(NLELEM + INCK) = cél) 
1303. ICCC CONTIALE 
1269. C 
} h Pais IDIF = NEMAX = NLELEM = NUELEM 
| Lall. NF = ATMAX — NLETA *# 1 
| 1712. INCR = VU 
| a boi s< OO 2CCC i = NF av TMAX 
| 1314. INCR = i1NCkK + 1 
1315.6 LE(NLETA # INCK) = LE( IL) = Lote 
1316. z2cCC CCNTIANLe 
117 LEQ(NETAtL) = NELCEM + 1 : 
1313.6 RETLRA j 
i 1I19. ENC ! 
13220. SLBRCLTINE UPBETA ' 
| La2hs C i 
| l2éd.e Cc LPCATEs KRIGET=HANL sfUes TU REFLECT Ntw BASIS RESULTING FROM i 
1323@ ¢ CURRENT SIMPLEX PIVOT i 
L224. i SUBRLUTING AUAP TED FROM CLEAR PRUGRAMMING CUDE LPM=ie we LTTEN 
} 1225. « BY JeAe TEMLIN (LRERATIONS RESEARCH, STANFORD UNIVERSITY) 
| 326. C 
JIS Ew IMPLICIT REAL*4 (AgletHylpP ep Roby Z) » KEAL#E (BeD ek eV) 
1328-6 1 INT CGENR*4 (1=Ny wd 
1329. INTEGER¥*c UreKINGAS plAyL Es TALE 
: JJ 306 INTEGER¥*2 LPAnwt, INCCMog tL VNUs tv li yi CBND 
4 1331. DOUBLE PRECISICN & (ludu) 
. 1332. REAL £(5uu) 
l 1333. C 
F H wie 1334. COMPMOR/GLUCK/ 2TCL LE gp ZTOLPVy ZTICOST¢ ZTOL RU 6 ZTCLSM CROs QMAs OBA rUE IL » 
p * ed 1335. 1 wey WEL eA PPE eM Te Od QE swe QN + QUs NRMAX pNEMAKy CBee 
” om 1335. Z GE pub Gh y Oye UM pGGe AT MAX 
; ~ 1337. C 
f . 1248. COMMCN/GLUCKE/ UEP ART(L22) -REVBNOeINCVALy ICOLe LISTE I VAL elUIRe 
ri BIS9 1 NPI vUT,EPTYPE »ROCST, LFEAS, TPART(L 22), 1 NCUMBLL22)¢ 
’ 1340.6 2 LVEACO500),hVivi 500) pLUBNU(50C) 
1241. C 
u 


ca See 


141 


| 
| 
7 


L220 CALL SHIF TR EL ed) 
CO S$ece Yel eNCLL 
LF (KINA)! Bb go IV, UCD 


BéCC VE eUnis) 
GC Te €7ouU 
&e?CE OE = FLBi 2 
B e7fC LL = LAL) 
sf KK LACI#2) =~ I 
OC saCeu [=Ligka 
{R = 1lAil)} 
BCC ¥CER) = VOIR) ~ ALTIFLE 9 
L231. CCC CONTE ALE 
1232. CALL FIRANELD 
k233- CALL SrleTRkdsec) 
“_ 1234.6 C 
1235. NCFC = Nece — Weld 
1236-6 NSTR = NKUwW = NSLCE 
1227 e C 
| 1238. RETLURA 
1239. ENC 
12406 SUBRCLTIWc UNPACK( LV) 
lé4l. c 
1242.6 C EXFANCS CUMFRESSED MATRIX CULUMN 
i243. ¢ SLBRLOT ING ADAPTeEU FRUM LINEAR PROGRAMMING CGDE LPM—Lh,y WITTEN 
1244, Cc BY JaNe TEMLIN (CPERATLONS RESEARCH, STANFORD UNIVERSITY) 
k245. CPPS SHEHDESCKIPTIUN UF FAKAME TERS HOE OR RESD 
1245. € TV = yvARAMETER INGEXING CULUMN TC BE EXPANDED 
1247. CHF FRR EERE DERE AR RH HK ERE MERE RHE EERE 
L243. G 
1249. IMPLICIT KEALHSe (A gC ebm let yRmmy ld) yg REAL#B (Barbe XoVie 
1250's 1 INTEGER¥4 (TNO) 
lé INTECER®e GmeK INCAS slLAeL Ey IA, it 
252% CCUBLE PReECISICN ElluvU) 
1253.4 REAL &£(>U0u) 
1254. Cc 
12554 COMMOR/oLUCK/ ZTULZE,LTULPVs ZTICCST,s ZTUL RJ 2 ZTOLSM » CRU, GMA, WHOA, QF 
} 256.6 j GoUy eB QA yg QPL» ML ped ged sds GNeQUy NRMAX pNCMAXs whe ly 
12ST « 2 wt gdh pele WOe ure Mr Ge NTMAX 
1258. c 
1259. COMMON cpr ECL edd se XUBEL SE) BL OU) se XC OO) se Y( 00) pYTEMP(60) »pUSUM, UPRUL, 
L2GVe 1 JY pLeglhyay TLNAME 12292) gp NAME (ZU) pNTEMP( 20) 9 SUMINE pMSTAT, 
l26l. 2 LUbd pARCWRy LViNg LT VUUT SIT TONTs INVERQs ITRERQ GT TSINVe LFF cle 
1262. 3 JEULPyNRU ap WEL Cy NELEMe NE TA gNLELEM es NLE TA, WUELEM pNUETA?® 
1263 4 Led beuddy TAC50U) pLE( 292) pL Al i2dd) yKINBAS(L22)2NH( 60) 
1264. t 
12656 cC 1C0C I = lLewkuw 
12€6, Y(I) = vu. 
* 1267. rec CCNTIALE 
12648. Cc 
i 1269. Lk = LAELV) 
£ 1270. KK = LACIVti) = 1 
i271. OC 2C€ [ = LlyKK 
i leT2. IR = [Ati 
v 1273.6 YOEIR) = ATI 
al 1274. 2CC CCNTIALE 
1275. C 
1 lél6s RETLRA 
*% 1277. ENC 
4 12736 SLERCLTINE sHFTc 
of 1279. Cc 
” 12806 C SLERUUT ING FORK INVERT 


aahingetttcaty ARP Mee Mi EMMA ea hat 


eereeeeeeemaees 


hES2« NELEX = Nekecm # | . 
L160. IEQNELEMS = I } 
Ll6L. E(NELEN) vil) : 
i162. GE 1G 23ue i 
led. c f 
LL6%. Cc J cl& tLcMENTS ; 
3 L165. t 
1165. e2CC TECNELAST) = ] 
1167. EQCNEL ASTI ¥4.1) 
1163. NEL SST = WetAST = | 
1169. NUELEM = NLELEM # } 
Li?lu. 23Cc CCATINE 
bi7l. C 
Lite JHCIRCeP) = Iv 
*° PLT « KIAGAS (LVI TRU aP 
li?4. RLETA = NUCTA * } 
i UTS. Teqhe last? = lkCweP 
| 1i?6. TF (J -NEe KRII GU fu 2330 
1177. E(NELAST) = YelRKOwP) 
Li7TS. GG Te 2540 
1179, @336 ECNELAST) |= L. 
11806 NETA = NeTA ¢ 1 
1161. LE(NETAt1) = NELEM + 1 
lld2. 234C NUELEP = NLELEM + 1 
1183. LE(NTLAST) = NELAST 
1184. NELAST = NWELAST = 1 
lleo. NILAST = NItAoT = i 
1196. c 
lid?. (s LEUATE ROW CULNTS 
11838. [a 
1189. DC 235C 1 = lyNRLa 
1150. [IF (OAPSiY(E)) LE. 2TULZE) GU TO 235u 
1151. [F (rREG( I) .Gte. ud GU TO 2359u 
1152. FREG(1) = bReGtl) — [NCR 
Liss. TF (RREG(CL) coke GU} BREGC ES = ma 
1iS4¢. 225C CORTENCE 
LISS. tREGtIIRuwP) = C 
1156. 26€€ CONTINUE 
List. C 
1158. € Méekue L ANL VU ETAS 
11S9. € 
120). 28CC NLETA = NETA 
LZ01.« NETA = NLETA + NutTaA 
héc2% NLELC# = NeELeEM 
1203. NELCEM = wetelbeM + NLELEM 
12C4. {F (NLELEM wcQ. ud) GLE TO 3550 
‘ 12C5. GALL. ShFTE 
: 12Co. C 
; 12C7. C IWocKT SLACKS FOR Vele TEC COLUMNS 
% 12C3. i 
" 1205. 2556 DG Z0€C i = iEeNKOW 
\ l21l). fF CJECT) «NEw U) CC Te 3600 
{ lell. JEUE) = i 
* a léa2- IRCWP = i 
aA a P2230 CALL UNPALK (TI) 
“> lela. CALL FTIRANGL) 
t G L213. CALL RETA 
ry lé2loe. 2€CC CCNTINLE 
* i217. C 
i i213. c UPLATE Xx 
fe lelde ¢ 
* 143 
q 
& 
* 
- 


aarmectimiborrts bs tle ater ahd 


LCS NSLCK = NOLLA *+ 1 
1CS9. L2G EL = EAE i 
Ligue KK = LACIVEL) =i i 
LECT. iF (Ke oul. bh) GE TU Lsadu | 
Llc2. 1Z&C TF tAESCACLL) = Led eh. 2TGLZe) GL TC 206u f 

3 1104. C : 
1ic+. 13CC NUETA = NeETA # 1 : 
PLCS. OC 14CC J = ULbsKa 
1106. IR = [htu) 
pa If (IF ecu. LiCu TC 1390 ' 
lied. TEERELASTY = 0K ; 
LECY, E(NEL AST) = Au) ' 
Lito. NELAST = WELAST = 1 i 

e LEVEs NUELES NUELEM + 1 
112. GC WW lave i 

ViLS. L2S€ EP = £¢4) 

| lille. 14CC CENTINGE 

| PEWS. TECNELAST) = 1 
Eri, E(NELAST) = uP 
Llive CECKTLAST) = NELAST 
1114. NELAST = NeLaST = 1 | 
lll. NTLAST = NTLAST = 1 : 
LE25% NUELEM = NUELEM + j { 
biel«. 2CCC CONTINCE 
Li22.< eC&C TFCKRE «Eus 0) FE TE 5500 j 
Lizs. C | 
lléwe C Ol Leu LeccMrusITiUuN OF BUMP | 
LiZss Cc i 
lido. O00 3CCC uv = LRIyKR1 i 
aE a [V = VRevolu) | 
1123. CALL LNPACK (iV) i 
L129. CALL FIKANic) ' 
1130. [RCwP = u a 
Li3l. ikCPIN = -999959 
E132. CE 21CC i = iyNRCwW i 
hiss IF (OABS(Y Cid) eles 2ZTULPV) GU TG 2160 i 

Ate IF (FREGCLI «vote 0) GL Fu 2100 } 

LESS. Le (rReolid ett. TRCMIN) GU TU Zico ii 
1136. IRCMIN = HReotl) | 
EES Tis fRCwP = { 
Lisde 21cc CCNTIALEe j 
i139. IF (1FCwe .GT. vu) CO TU 2150 | 
1140. WRITE (ep Succ) | 
L141. KINGAS(IV) = UG ii 
1142. GE TE 2000 

te L436 € 
1144. Z1£C INCK = mectcldincwP) + 3 

x 1145. C 

4 1146. C wriT— L ANC L ETAS 

o L47e C 

i 1143 EF (id stv. KRY Gh TG 2L60 

i 1149.6 hELEM = NELEM + L 

* Piso. TECNE LEM) = LRUWP 

4 Lisl. EqNELE™) = viruaP) 

) L152 2iéC bE 23CC 1 = Ls\Rew 

; WUESe IF (1 etwe Leva) C& TU csuv0 
1134.6 TRC CAESIVCL)) set. ZTULZE) Gu TC ¢5CO ; 
Le IF (FREGII) eGE. ¥} GO TU eduu | 
P5656 € t 
LiSTs C « EFA ELEMENTS 
LESAs Cc 
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Sa PE oa ST 


ee 


sopterrerteariogn > AP decent; 


< 
~ 


1c71. B14 


be LAtivi 
KE = t£6 vei? — J 
IMCKT 
BE OEE Linh 
(R = $At1) 
IF (CRREGILIR) eCee ©) GO TG LOU 
[MCAT = IMCNT - (riKeLdirnd +1) 
CCATIALL 
MRECOS) = LeUNT 
CCATEALE 
SuRT CULLMNDS INTG MEKLT CRUER 
LotNs SFELL SCRT 
PSE i 
I@ (KFL «tT. 2¥%15u) Gu FG Llod 
PSG = eG¥LSet 
GC TC lave 
ESO = [su = | 


END UF INITiALIZATIOCA 


FE CYSE ChE. oy GO Te LUT 

ESK = 1 

ESab =) sESK 

FSt = [Sk + TSE 

IS¥ = MkeClloL) 

(SZ = VecGlIse) 

IF CYSY¥ ek Fe MEEGIISI)) GG TY £104 


PSE = 15d 4 PS 
MREGiISce) = [sY 
VREC( ISL) = [S82 
ESK = ISK * 2 
IF (CESK «¢ [Su) eLte wnR1l) Gu TG 1102 
TSH = €1SD = i) # z 
GC TC livl 
Pst = ESd 4 PSe 
MREGC ISL) = MREGIISY) 
VRECC ISL) = vetvutifty) 
Sd = ¥SI = ESE 
TF (CESS «GT. GI GO TG 1LO3 
GC TC llud 
CUENTIALE 
the CF SURT RULTINE 


FLT CLT Beedw HUMP ETAS (PART CF 


NSLCK = u 

ABELCe = C 

NELAST = NEMAK 

NTLAST = NTMAX 

LECINTLAST + 1) = NELAST ¢+ 1 


LR = ts 
IF (LEZ «LE. CRS) Le = LKS 
IF (LR .GT. aKa) GC Tu 2620 


JK = KRG + 1 

CC 20CL JJ= LK eKRG 
JK = JK = 4 

Iv = VREUtUK) 


I = MFEGiJBK) 
NEELCe = NEECLH + 2 
IF (IN 267. NKRCw) CO TQ Levu 
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cninenionigehinanarcisinamsti ema lenin bene: 


ud) 


a 


Amt 


se] 

ia) 
. 
rs 


“yIvel Acuve ctuMP (PART UF L) 


NABCVE = whtuve + 1 
(RCwWP = Ik 

CALL ULNPACK ITV) 
CALL WRETA 

NLETA = Nelda 

JRCIF) = iv 
KINEAS(IV) = Ik 
VREG(L) = VREG(KKL) 
KEEL = KKL = J 

NVREM = WvheEM + 2 
HREC(IF) = Iv 

GG Tce Su 


IF (hREG(IK) «bee CC) GUO TO su”U 
IRCAT = [nCAT + 1 

IrRP = Ik 

CATIALE 


IF (IRCNT = 4) 840 _S9L0,1000 
WRITE (E,oUC0) 

KINEAS(iV) = © 

VREG(L) = vheolKRl) 

AVREM = KhwrkeM + 1 

KRL = Kk: = Lh 

IF (4 sote KRIL) GL TL 1LY1lV 
GE FE 32u 


PST VECTCR bebe BUMP 


VREC(u) = VREGIKEL) 
NVREM = WVREM + i 
KRL = KKa = 1 

LR3Z = Lk5 = 1 
VREC(LES) = 
MEEG(LRS) = 
FREGCCIRP) = & 
JRC IRE) = lv 
KINEAS(Iv) = [RP 
CRANGE KUnw LULATS 


CO 95C Ili = Li yh 

LIR = L[ACI1) 

TF (FRectitk) .GE&- OC) GO TO 930 
FREG(TIR = bRev (IIR) + 1 
CCNTINGE 

{F (J «GT. KRL) GU TC Lulv 
GG T6 32u 

IF (J eGt. Keid GO TO 1010 
J = Jl 

GG TE 320 

IFC(K\VFEM 6GT.e &) GC TO 310 


GET MEF LT CUUNTS 
IF (KRL etbe od) UG TC 1190 


CO LICC UV = Lig KRL 
Ivy = VREGiY) 
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setae litre etc hiaerlitn eatin Aa lis 2S aa Pik needed dees iemeitiel 


eC CE es Te” 


as 


a ny 8b tbana I nN Ree <9 MR MAD tp e fe 


DAD 


AaAaN 


ecCc 


2CG 


OC clC { = LR4gKR4 
IR = MREGt1) 
HREGCIRI= & 

JHOETR) = IR 
KINBAS(IK) = IR 
CCNTI ACE 


Pott CJT VECTORS BELUm BLM ANC Gel RCW CCUNTS 


NBNCNZ = RKa m= LiKe 


IF (KARL ecu. YU} GU TO 1190 


J = Lkl 

IV = VREG( Ud 

LL = LACIV) 

KK = LA@Iv#l) =: 
IRCAT = U 

OC 22C 1 = LbyKK 
NBNCAZ = NBACNZ + 1 
IR = £4(1) 


TF CHREG(I RK) ebe. C) GG TG 220 


TRCAT = LRCAT + 24 


HREC( IP) = meeGlIR) — 2b 


[RP = Ik 
CCONTEINc 


IF (LRCNT -— 4) d3uec5U1350U 


wRITE (€,38UCC) 


FORMAT(LOHUMATRIX SINGULAR ) 


KINEAS(iv)d = O 
VREG(J) = VREG(KRI) 
KRL = KKL = 1 


IF (J e6T. BRL) GU TC 310 


GC TG 210 

VREG(J) = VREG(KRI) 
KR1l = Kki = 2t 

LR3 = LKZ - i 
VREG(LR3) = Iv 
MRECG(LR3) = [RKP 
FREGCIRP) = OU 
JRCTRED = Iv 


KINEAS¢(IV) = Ike 
IF (J 
GO TC ¢iu 


IF (uy eGts. KRi)d GU TC 310 


J = stl 
GC TC Ziv 


PULL CuT REMAINING VECTORS AGUVE AND BELUn THE 
GUMP ANU ESTABLISrF MERIT COUNTS OF CULUMNS 


NVREM = u 


TF(KR) etwe vd GU TG 1190 


J = Lkl 

Iv = VWReolJ) 

Ll = LACIv) 

KK tAtiV+el)d) = | 
IRCAT = oO 

CC 8O0C I = ilyKa 
IR = IAC!) 


TF(RFREG(LK) «NE. -2) CO TO +00 


eGT. KRia) GU TL 310 


MAEM nl ae Bathe ts 


as 


e 
4 


ROAAAD 


lon 


i 


a 
r 4 


f£wase 


vac siti sn nde lalate) dp 


ee AB 


cMRRAY(LeN ¢ 1) = BARRAYCIFoO + 1) 
LCNTI vue 

eKETURA 

END 


SLEROLTING iNvVERT 


COMPSTES ANvemot UF CURRKENVE EASTS t¥ LU DECUMPOSITION 
SLekUST INE AUVAP TED FROM LINEAR PRKUGKAMMING CUDE LPM=L, wKITTEN 
GY Jeane TUMLIN (UFLKATIGNS KESEARCH, STANFORD UNIVERSITY) 


IMPLICIT KEAC ES (AyCetmHyGePeRows d) » KREAL®S (BrUeXeY) 
ANTCCER #4 (LeNr&) 

INTECER*2 eta AW TNVOASsLAgLE plAgic 

CCLBLE Peevldicnw c tivuvu) 

KEAL Alouv2 


COMMCR/BLUCK/S LTUL cto ETULP Vy LICCST, LZTLL RIS» ZT CL SM yp QRU, QMA, CHA QE » 
wheel wAg hPL gp eM pel sQh a Qh y GN 9 WU, ARMAX pNEMAXs UBC 
weed kh pals QU ypUR eM pQoe NT MAK 


COMMON Ce Xe blideds chi 2d) B00) 1X0 EI), YI OC) pYTEMP(60)5. UM, CPRUD, 
VY ptr CF e Ay LLNAM( 12292), NAME (20) pNTEMP(20)¢SUMINE pMSTAT, 
fuodyikLwk,y IVINyg LVGUT ey LICNTy INVERGQ, ITRERWyITOINV, LEFF EZ 
JLUL Py NKU We NCULyNELEMs NETA pNLELEMsNLETAsNUELEM yNUETA, 
pel Lud ds TALS PLE !Yd2) FLAC LeZdeKINBASIL22d,5 JH (OC) 


(ATEGER*. MReoghRe Ca VREG 
OIMENSTUN MREGIOL) yEKEG( OU) pVREC( 60) 
EQUIVALENCE (ARE GL LD YTEMPOL) Ds (HREG(1L) yy YTEME( 31D), (VREG(L) XL) 2 


SeT PARAMETERS 


NETA = u 
NLETA = y 
NLETA = ¥ 
NELEM = U 
NLELEM = Q 
NUELEM = J 
NAPCVE = U 
1 a 8 
ERT = I 
KRL = € 
LRG = NRKUw + fb 
KRG = Neus 


PUT st ACKS ANU AKRTIFLCTALS IN PART 4 AND REST IN PART 1 


CC 1Ce 1 = iyNkKOw 
YF (StEL) e&T. NRUW) GU TU dU 
LR4 = LRa ee 1 


MREG(LR4) = JH(L) 
VREG(LR4) = Jind 
6c TC $V 

KRL = KRL + I 


VREGCKE1) = gmti) 
FREG(T) = =-i 
JhOt) = 6 
COATIANGE 

KR ike =] 
R32 che 


how 
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| ee CCLUBLE PReelSitN « lvuu) 
154.6 REAL Aldvdu) 
TS < C 
196. COMMCR/ oe UCK/ €TUb dtp 2TULP Vs ZICO3ST, LZTULRSy ZT CLSM pORU, OMA, QUA SUFI y 
TST 1 WOU KCL ep UAy PL ep GMT el pul y QF UN gy WU) ARMAK pNEMAK, Oe UC, 
2 193.4 zZ wE gdb pep QUrQR eM pda KT MAX 
19%. € 
AO. CUOMMCHK teAbehbdaeds ALO ged eb OU) oe X(6U) YL OU) ep YTEMPLGU) yOSUM, CPKUD, 
ddl. l JY pUtyUP_ Ag LLNAM( L2d92) ep NAME (20) pNTEMP( 20) _ SUMINE pMSTAT, 
EC2. 2 tuddeglktwP, TviN,L VOUT ST TONT, INVERQ, TTRERGO,LTTSINV, TFFcle 
@C3. 3 JCULPeNRUws NCCL»NELEMe NETA yNLECEMyNLE TA,NUELEM »pNUETA, 
é04. 4 fel s0U0) TA CSU) yLeldo2) LAL L222), KINBAS(1 22), 5H(0U) 
ECoc. € 
CUO. NELEM = NELEM + 2 
BCT. TECNELEM) = IkUWP 
&C8. E(NELEM) = YO LRUwP) 
EC. C 
flde bC ICCC I = ipNktw 
ell. IF (1 ekEue ImUar) GCC Tu 1000 
(2 lear TF (OSES (VOLE) .tE. ZTOLZE) Gu TG iCou 
E13. NELEM = NELEM.+ 1 
B14. TECHELEM) = I 
PLl5. ECNELEM) = ¥C1) 
E16. ccc CCNTIAGE 
Ell. c ' 
BLa, NETA = NETA +.1 ; 
814. LEC NETAtLy = WELEM # 1 ! 
G2). RETURN | 
e2h a ENC i 
vy SLBRCUTING SHIFTR( ICO, LNEW) 
Base C 
Ec4. C REARKANGES LATA STURAGE ; 
U2>6 C SLPRUUT ING AvaP TCO FRUM LINEAR PRUGRAMMING CODE LP Mis wKITTEN 
£06 Cc BY Je4e TOMcIN (OPERATIONS RESEARCH, STANFGRD UNIVERSITY) 
Gail « Cees eeeeeCE SCRIPT LEN UF PARAMETERS © ## FEHR SE 
82d. C IOLC, INEw = PARAMe TERS INUICATIANG STORAGE LOCATIONS FRUM ANU 
@29.6 C TC wiCit LATA ITS TU BE TRANSFERRED, RESPECTIVELY 
LEV o we ORE eLe Cele el rer Tere Te reeerrr rer res Se Lee S| 
$315 C ; 
G22 IMPLICIT REAL*4 (AgCeE~He CeP ep Rowe d) 9 KREAL¥S (ByDeX2V) 
fie a 1 iNTcGck*e Fl-Ny&) 
A346 INTECER¥e Ube KILINEASpLAygLe eI Ae lt 
Dele DCLELE PReLCIStCN EtlUu0U) : 
De REAL f£lduu) | 
ea fie C 
G33 COMMON/BLULK/S 2TUe ZEeLZTOLP Ve LZTCCSTs 2TULRI yp ZTCLSM pQROUy QMA, KALE] » 
839. 1 GEO, RCL QAg wPL ep GMT y C2 wily GF ey GN oe QU 9 NRMAX pNEMAXs Ue UCe 
CP4). 2 we eWHe wl sy QWGrQRe WM eQGeANTMAX 
E41. € 
P4Ge. COMMOR cpaAbethdcds XLa(lLezdeeleu dX EV) ,Y(0U) pYTEMP LOU) sUSUM, CPRUU, 
245 'e 1 Ut, CE, OP, Ay LUENAM( 12202) pNAME (ZU) pNTEMP( 20) ,SUMINE pMoTAT, 
24%. 2 TUbs pl KCwe, LVIN,»TVOUTe IL TCNT, INVERQ, TTRERQSITSINVATFFC “Le 
* A490. 3 JLULP pNRUW) NCU NECEMs NETAgNLELEMeNLETAy,NUELEMeNUETA, 
a 34%. 4 LECLOUVG), TA 1500) pLei 252) pL Al 122) ,KINBAS(1 22), JH 00) 
b E47. Cc 
a A436 CIMENS Tun CAKKAY (240) 
. i- E4). ECUTVALCNCE (BARRAY(1),d01L)) 
y £506 IFC = (TuLL = 1) * NRMAK 
@51. IFN = (iNew = 1) * NRMAX 
ESm¢~6 C 
E536 Ce 1CCe Ll = ayNkKuw 


149 


2 ak 


pe ROPER TROT ye natant ate biogas Paik a ate AN 02 i il hae NM Si eh me ate a 


rae Sa 166 TF Q(X€) ekle CACHE CECH) — 2TULZEI) 6G TG Suu 


ye YE = EXCL) — AcSLICCLIISYOE) 
j A IF (6£ «Gee LPI GU TEC Sun 
? [Y¥TYPE = U 
1366 GE Te 2ov 
te € NEGATIVE CucFFiCLlENT 
> is 2CC IF (X41) oGT. (aU (ICOL) + CTULZE}) Ga TO 5a¢ 
134 DE = (xXtL)b — Avo Fl CCrdy I /YCL) 
be EF (CE «acte OF) Gu FE 500 
141. IPIYEFE =| 
G2. 25¢. UP = GE 
« InkCwe = | 
is%e Ste GENCEAUE 
“ BE = €P + ALG(JCOL PR) 
‘ IF (CE ot. AvelJCCLP)) GO TO occ 
m OP = xLBE(ULELP) = ALB ULGLP) 
a NPIVET = ¥ 
T49 « RETURN 
7 . £66 NPEVEE = | 
(Dive RETLSN 
‘ ¢ 
TS3 6 C iNCeMING VAR AdLE AT UPPER &CUND 
- C 
: 1CCC UP = <1leeLt 
; EC LScC 1l=l,NRUwW | 
Pa IG €2 seue FGRu) GE TH 2900 
EA. 1CCl = JHETI ; 
5%. IF (YCI) eGT. ZTULFY) GO TO 110 | 
16%. IF (YC(1) «tT. scTutPv) GU TU i2co 
Tél. 6G Te lovd 
&2 « C Pesifive COerFrFICIENT 
se Lice [F (xtli ect. (Xust(IkOu) + ZTucZE)I) GG Tu 1500 
764, DE = (xXt1) ~ KvolICCL))/YOL) : 
She IF (CE sl&s CPY GO TE 1500 
TE. [PTYPE = —| 
167. GC TE izsv 
& Sie € NEGATIVE CCeFFICIeNT 
169 « 12€C TF (XE) «bTs CXLBCICOL) = CIULZE?) GO TO 1560 
eat cE = Oxtl) -— XtocI Cel) /v(1) 
ap os Me [IF (DE et&e UP) GU TU 1500 
a aes LPTYPE = © 
i736 L25C OP = CE 
(te IxChpP = f 
175. b5CC CCATIALS 
17B% DE = £€P + XUn( JLULF) j 
Fis IF (CE «oT. Xcb(sELLP)) GO TO 1LéoL : 
778. UP = XLU(ULELP) = XUB(JCOLP) 
1796 NPIVCT = u 
is RETLRA 
TEle 16CE€ APIVCT = 2 
Zs RETLER 
Tt Se EAC 
? 1&4. SUSFCLTI tc wRETA 
Sa C 
Toe c FULRMS New tla=-VECTGR CUORKESPCNCING TO CURRENT SIMPLEX PIVOT 
Mal. C SUexuuTINE AVAPTED FROM CINEAK PROGRAMMING CUDE LPM=1l>y wkITTEN 
7 Ta3 6 (™ BY sene TUMLIN (UPERATIGNS RESEAKCH, STANFORU UNIVERSITY) 
i 769.0 C 
3 790. IMPLICIT REAL*4 (A gk E=HyCePeR—me2)  REALFR (39D eXeV) eo 
” SL. 1 aNTcGeK*4 Cl=NyQ) 
> Tord. INTEGER*e JhyKINGASsLaglLE eg lAgle 
biol 
: 150 


as 


RNIN SSNS NS 


. 
SAA CaA nN 


oO 


Ptr FIMO RAR seeRethrae,a 


e2GG 


1 


Ne 


tae 


luvs 
iF £039 «2te ChAAK oy Tae 200u 
+ AK elt 
JEGLS 
SUNT ENG 
‘ F , j 
EF CeIn, sire MLIGLST) uu te Boe 


fF COPAN stuce 47FcUST) os TU Zot 


JECLEI 

KCCSY = ue 

RETURN 

LE (CMSN wtew cPuysSty Gs Fu 250c 
JCELP = SURES 

RCCST LM IN 

RETURN 

JECEP #eGlzZ 

RPCOCST = LMAX 

RETURN 

LF (CAE SIULMINI — CMA) ZuduszcUULslour 
tND 


SUBRUL TING Chiles 


PEXFLRAS MI nalls Teast FuR FIVET CULUMA JCOLP UcTERMINEU Iw 
SUBRLUT ING Price. scltCTs PIlvCT KUw [ROwP FOR CURRENT PRIMAL 
SilePrcaA LTERATICKe 

SUPRUIT LIN AUAPTED FeUM CLEAR PKUGRAMMING CLUDE LPM—ieg wk ITT CN 
BY Jeke FUMLIN lerewmATIiGNs KESEARCK, STANFURD JNIVERSITY) 


IMPLICIT KcAL*®4 (Apt yemrte Ce PeKmaed) » KEALFE (bp erAr YY)» 
LNTeoER¥S (1-Ny ud 

INTEGER*®. Ura KlivGASpitAyLeslAglt 

INTEGER*. arARTyINCUMo eI VBNOe Lv Io yI Cou 

DCUBLE PeeCiSICN Elivuu) 

REAL Alsuu) 


COMMUN/oLULK/, ZT dt r2TUbPVe ZTLcstly ZTulrue ZTCLSM pwRUep QMAgubAgutl » 
GCs web e wae PL pe ed pawl ep eb s UN 9 QU NRMAX pNEMAAg wee 
wh ell pad eg WC prem pube hT MAA 


COMMONS Sc UCKRe/ UbP ART ded) ep KoVvoNU ee IAC VAC y TUL LIE STL,I VAL, Ui Ry 
WPIVET,IPTYPEsROLSTy lTFtase lPARKT iL eedde INCUMBLicedds 
LVBONU Loud) eg iviUE SUC) pl GbE SUC) 


COMMEN Lp AL Elec de ALBIL Sed BO (OU) PX( CUI er VEGOU) pV TEMP (OU) pUSUM, LPRUU, 
oY pbCrCPy As ILNANC L2Sy ec) ep NAME (cu) aN TEMP(2U},SIMINE pMSTAT, 
LudJolRtLwPs Lv livyg iVOUT, I TONTs INVER Oy ITRFRQAITSINV, L&et ly 
JUUL rp WRU we NCUL NEL SMe Ne TANCE LE Me NCE TAgUEL OMe Nut Ay 
Pedlucddbeladdsudd es LElcr2d) sLACIA22ieKINGAS(LeddedtHlou) 


EF (KINGAoEIEULP) «Eyes <1) oo TC LUCY 
iNCLMING VARIaolLe AT LCCwER ELUNE 


CP = Lleelu 
OC SOC [=lLpiikun 
le (T scds Tegel ot Tu avo 
CCL = uRMbh) 
GF €VCL) eGte cTULPY¥) ov TO 100 
TF (YC) oth. wé2TUbLev) ot fu eve 
GU TO Suu 
PEstfive Core lic tent 
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the gah 504g 5 AR Alc aan als 


ar 


as 


rene N EBS: 


~ 
« 
Ae A 


te le ew tf 
= 
. 
Aas 


& 

Cl 

€336 l 
€ 

(a 


mo 
> 
~ 
. 
fwenre 


on 
> 
oe 
‘ 

an 
Co 
oO 


NE eo Ng my BIRR oN Ah et: 


TE (XULY «Gee €Xustuloe) + ZTOKRZED) GU TO 20 


¥VOCRG = De 

GE FE 3u 

YE) = ie 

SLM INF = ost MiNe + AcodleuL) — ACL 
GE FE 3u 

YOI) = sa. 

SUMINF = SUMine + ACL) = XUBCICCL) 
CUATINGE 


fe (SUMINF 25T. cTCLSM) RETURN 
Y(ICBJ) = 1. 


EFEEY = £ 
MSTAT = QF 
KETLRA 

thC 


SUBRULTawe Palcde 


PRICK LUT NUNDASTL CULUMINS¢ GCFOCSES PIVCT CULUMN JCULP FOR 
CURKENT PrRIMAL=SLMPECA ITTERATICN 

SLERUSTLANE AVAPTEL FRCM LINEAR PRUGKAMMING CODE LPM—l, wRITTEN 
BY JeAe TUMLIN (LPERATILNS RESEARCH, STANFORD UNIVERSITY) 


IMPLICIT ReaL*4 (Age eEmHy Ce PyRene 6)» KEAL*S (BeDaXeV) 9 
INTEGER *4 CI=NyQ) 

INTECER*2 UhyKINDAS LAyLeE,IAVIE 

INTECER*2 IPART, INCLMos LVoNDye IT VID »ICeénhU 

CCUBLE PKECAiSiLUN & (100) 

REAL £50) 


COMMER/BLUCK/S LTO Zee ZTIOLP Ve LICCST ys ZTOL RU LTCLSM yp QRO, QMAy OBA pF 1 + 
wE Us abbey dAsPL pump GLeuly QF es GN» QU NRMAX pNEMAX»s QB eile 
WE Qh pdb ep QU pik y UM pUGe NhTMAX 


COMMGA/OLUCKE/ UEP ART E122) ¢REYBND pINCVAL,ICOL»LISTLsIVALsIOIR, 
NPL VCTeLPTYPEyRCGST, LFEAS, IT PART(1L22) pL NCUMB( 122) 
TVBNC( 200) ,1VIvd SUC) FE CBND(50C) 


COMMCK EvALE face), XubbL2e)45(00) 4X1 60) ,Y (OC) pYTEMP (60) »USUM, UPRUD» 
UY pUt gl Pyhy ILAAMO 12292) NAME le 0) »>NTEMP( 20 )»SUMINE » MSTAT, 
(Udder nCwP, LVINe LT VOUT, LT CNTs INVERW se LTRERQ SL TSINVA LFF Ly 
JCULP a WRU my, NCOLy NELEMy NE TA yNLELEMsNLE TAyNUELEM pNUETAY 
Le€ LOU de LA (200) pLEt 252) LAC 122) »KINBAS(L 22), JSH(00) 


CMIN = Letle 

CMAX = —ietiu 

oC LOCO v=)heNCCL 

IF (KRINGAS (Ud eoTe UI) GU TO LuUC 

IF €0xeo( J) = xXid( Jd) -LT. 2TULZE) GU TO 1000 


CSUM = ue 
tL LAW) 
KK bLAtutid — a2 


> Cc 
a aa) 
hanno w 


6cC 1 = teyKkK 
Ik TAC1) 
cE A(l) 


CPRCE = Or * YIik) 

OSUM = VoUM + LPROC 

CCATIANGe 

IF (KRINBAS( J) eEWe =1) GC TO ouc 
IF (OSM eve. CMIN) GO TG LlyvY 
CMIN = DSU 

JCCLI = J 
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Be enh 0A SS ant nar A tk aCe 


we ph oh ys wl athe wh eCbghT MAX 


nar 
a 33 
cow 
ees 
oO 
Mm 


Stay COPMCR EyAL EL cede ALE(Addd soloud,xXl EU) sY( GC) yYTEMP(60),¢USUM, OPRUD, 
AP 1 D¥ ebb eDh se Ag ILNAM( bolded) a NAMEMZO) pNTEMPO(2U),SUMINF »MSTAT, 
5S 3% < LLbd pL REWRe Tv live LVGUT SLT CNT, INVERG, ITKFRQSITSINVe FFE Le 
ts So4e E JECLE yNKUWe NCULyNELEMy NCTA gNLELEMs NLETAyNUELEM pg NUETAy 
7 Shae 4 Leb LEC) LAMSUVD LEM 292) LAL Ae) pKINBAS( Lec) s SHOU) 
SEG). e 
et I IF (NETa eLie &) ol TU YOUU 
SE Se OC 1ccc L = iyNETA 
Lit IK = AETA = 1 #1 * 
£6). Le = Letind 
Sél. KK = LECIK4#1) - 1 
£62. LPIvV = Leder) 
£636 Ce = Elite) 
SE4%. C¥ = VCEPING 
SET OSUM = Ue 
£66. IF (KK «tte CL) GO Te 000 
SG6ihe Loe = LE + 1 
S63: CC SCC J = Ligkk 
ECF. IR = JE) 
EW. OE = Elu) 
Stk CPRCC = ve * Yin) 
STZ CSUM = USUM + CPRULC : 
S736 §CC CCNTIANLE i 
ST4. C 
LY te €cc VCLFIV) = (LY = LSLM) / UP 
STG. 1cCC CCNTINLE 
Sit. SCCC RETURA 
Stole ENO 
STK e SLBRCLTING FURBC 
PRL, C 
Seis C FORMS CCST veC TCR FUR CURRENT FRIMAL=SIMPLEX ITERATIUN; USED IN 
cece C CCNJNCTICN WIThF SUBROUTINE FRICE 
F836 C SUBRUUTING AVAPTED FROM LINEAR PROGRAMMING CUCE LPM@ly WRITTEN 
FES. C BY JeAe TUMLIN (OPERATIONS RESEARCH, STANFORU UNIVERSITY) 
GaSe C 
$866 IMPLICIT KEAL*®4 (AgUst=HeCePyR—-we 2) 9 REAL¥O (8D 9XeV) » 
SET. z INTEGER *4 (CI=N,Q) 
S83 « IATEGER*. Urey KLNGAS sLAyLE,IAgIE 
SEDs OUUBLE PRcCISTCN EC(LOUU) 
EG 06 REAL Aloduu) 
Sle i 
S526 COMMUR/6LUCK/ CTUL 2EeZTOLP Vy ZICCSTy, 2TOLRIyLTCLSM yp QRU, UMA, WBA QF I » 
SS 3 1 GEOr Coby WArePL sy UML pudewls Why CNeQUs NRMAX pNeMAXAs QBy ule | 
SS4e 2 WE pr rly WO rQRe QM pQGsNTMAX 
G36 ¢ 
EG4e COMMEN EgdAbe (bec), XUK(i22) 935100) 9X1 CO) + V(50) pYTEMPLOU ) + USUMs DPROD, 
’ SST. L UY pLerDPyAy ICNAM( 1dede2) 9 NAME (ZU) »NTEMP(20) 9 SUMINE ¢ MSTAT, 
S SS%« 2 TudugITREWP, AVINe LVOUTe LTCNT» INVFRU,ITRERQSITTSINVyLFFCL, 
he at ir 3 JCULP NRE me NCUL, NELEMe NE TA pNLELEMe NCE TAyNUELEM pNUETA® 
60). 4 Le (huCd)y 1A (500), LE( 252) pLA( 122) sKINBAS(122),JH(00) 
Ph # éCle i 
"| dy C26 MSTAT = wi 
vad 603. IFFEZ = UV 
! aie cl4. SLUMINF = Os 
a f £05. yY(ICBu) = C. 
4 ECS. OC 30 I=L» NRCW 
; ECT. IF (1 ef&de IbBu) GLE TU 40 
’ 6C3-6 {CCL = JH(1) 
> EC. IF (X(T) «LE. (KLOCLLUL) = ZTOL2ZE)) GC TO 10 
” 
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SL@RKUGTINE ADAPTCU FROM LINC AR PROGRAMMING CUDE LPMeid»y weRLITEN 

Cc GY JeAe TUMLAN (CPCKATIGNS RESEAKCH, STANFURO UNIVERSITY) 
C¥PXeeeeeCE SCRIPTIUN UF FAKAMETERS*## Oe eee 
C IPAR = FARKAME TER INVICATING BY WEICH ETA-VECTORS THE MATRIX 
(3 CCLuMN 1S TC bE UPLATED 
CEERROE SESE OEE EE SERSET AK OOS ESEEEEEEESE OEEED 
Cc 

IMPLICIT wcAc¥4 (AgCet—HyOePsk—mel) » REAL*S (BsrDeXeY) » 

1 INTCGER#4 Cla-Ns Wd 

INTEGER#2 Urs KINGAS LAgLE,LAyIec 

CCURLE ret CISICN E(lUuv0) 

REAL &louu) 


COMMOR/ECUCKS LZTOL ZEgdTOL PVs ZICCSTy ZTGER gy ZT OL SM ep QRO, QMA, WBA QF Is 
i GEGe Coie QAguPis Mle Ol Claws CGNs CUe NRMAX pNEMAXs Qe UL 
v4 QE ph eels QOsQRe QM pQG ye NTMAX 


COMMEN ceAL EI Led de AUBI1L22) s84 00), XC EV) V(60) eYTEMP (60) »DOSUM, CPRUD, 
Jt etteUPy Ay ILCNAM( 12292) NAME (20) se NTEMP(20) 4 SUMING ¢ MSTAT, 
iUbupITRCwPR, LVINeT VOUT eI T CAT, INVERQ,TTRERQ,ITSINVeTFFELe 
JCULP ep NRU We NACULy NELEMs NE TA pNLECEM,NLE TAgNUELEM pNUETA, 

Te € LOU), 1A (500) LEQ 2a2) pL AC 122) »KINBAS(122),JSH(6u) 


GC TO livewlloOdy I FAK 
Nf— = 1 
NLE = Ar TA 
GE Te 26u 
NicTA + 1 
NETA 
(NFE .GT.s Nit) CL TO 9900 
1CCC IK = NFE gle 
LE(IK) 
LECIntl) = 21 
Tele? 
YC1LPIV) 
CY/E(LL) 
cy 
eLE. LL) GU TC lyvvo 
tt + 2 
OC 50C uv = LevkK 
IR = T€¢) 
YCIR) = YOR) — Elud * OY 
COANTIALE 
CONTIALE 
CCATIALE 
RETURN 
ENC 
SLBRCLTINe ETRAN 


Own av + 
eee ee 


Www wi RNR MM DM 


PERFURMS BACKWARC TKANSFORMATIGN ON COLUMA STGRED IN veCIGR Y 
SUBRUSTINE ADAP TcL FRCK LINEAR PROGRAMMING CODE LPM=iy wRITTEN 
BY JeAe TUMLIN (UPERATIUNS RESEARCH, STANFORD UNIVERSITY) 


FPwowwwe 
CSCwWONOUFWNMPHO LS 
ee © 8 @ @ 


~~ 
e 


IMPLICIT KEAL¥4 (A gl sE=HyleP ye Robe 2) ¢ REAL#¥B (BpD ye XeY) 
1 INTEGER*4 (1=Ny Qu) 

INTEGER*®2 She KINBASstAglLt, [Ag IE 

OCLELE PReCISIUN E€(1000) 

REAL #t5u0) 


PAM LIM EM AMP in aM inna tm an in an un inn 


IAP 

sri 
West wr 
ee @ @ 


COMPCR/BLUCKS ZTUL ZEpLZTULPV, ZTICCST, 2ZTOLRI yy ZTCLSMy CRU es QMAy QUA pQFI + 
L CEU, CBL WA CPL» CMI yg CZ OL WF CN QUs NRMAX pNEMAXs CBr Cy 
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nay heelage bo athte thane’ es. 


as 


"ELY 


an 


an 


S4C 


ecc 


ICS1 = wAmMciad 
1CS2 = NAMEt.) 


TEST FUR KUn MATCH 


CC £4C 1 = ipNKun 

TF(NAMECG) eNeew SLONAMGT 9 Li eURe NAMECK) eNE. ICNAM(1,2))G0 TG 540 
B(1) = ATevel 

TFQK .€T. 53) GE TC 5 

[F(CAES¢ATe MP2) eLEe CTULZE?) GC TG. 5 
d= § 

Kk = 6 

ATEMP] = ATcMPe 

Ge 1G 5350 

CCATINGE 

WRITE (695500) KRAME LS)» NAME( KD 

sTce 


ENO Ge LiPuT 


NSCCL = NWOCL = NRUb 
K = NEFCGw + 1 
INFLT LentR AND UPPEK BGUNDS ON CECISTIUN VARIABLES FUR SUBPRUB- 
LEM INPKLb 
REAC (5,05) (XeBl J), J=KeNCUL) 
REAC (5,050) (XUBl ude J=KeNCOL) 
FURMAT (1d5F5.0) 
XLBCICes) = —LOU00. 
XLe(ICks) = LUcou. 
INPUT CCWERK AND LPPrk BUJNDS CN ALLOCATIUN VARIASLE FOR SUd= 
PRCBLEM LNPRUB 
REAC S651) (loeb (l,iNPRGB), T=] ph tTNK) 
REAL (8,051) (LouvbCI,1NPKUB), L=ieNLINK) 
FCRMAT (3120) 
INVFRE = NROW 
sTCKeE Ay LA gL AgXIB,OLG,BeNCOLyNKGW FOR SUBPRUBLEM I[NPROB 
LL = JFIRSTCINPREb) = 1 
CC LOIC L=1lyNEicM 
LELPE = Oe 6 4 
AMATRS {ci P1) = AL) 
TAS(LLFE Ly = LAL) 
Co 19éC KalyNUCL 
LAS(K,INPKGB) = LAK) 
ALBS¢KyINPRUB) = XLEBCK) 
XLBSUKyLNFREC) = Acct) 
K = ALINS + 1 
tl = NKUw = & 
CO 1032C L=lyii 
RESCL,{NPKLB) = oNGLIBIK+1)) 
NCCLS CINPREe} = NOLL 
NRCwS CINPKUB) = NRC 
JFIPSTCINPRCBt LD = JFIRSTUINPROB) + NELEM 


NELEM = NELEM — NRCA 
RELEM = NELEM 

RCENS = weleM/(WRKUWFNSCUL) 
RETLRA 

ENC 


SUBRCLTIiNE FIRAN(I PAK) 


PERFUKMS FCRWARC TRANSFORMATICN GN CULUMK STGRED IN vECTOR ¥ 
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aera Cen 


ae 


os 


Oan 


an 
AY 


an 


TEST FuR KUA MATCH 


OC 24€C Ll = isNRkun 

IFINAME(G) etre LCRAMCi eg La eUKe NAME K) 
NELEM = WELEM + | 

IA(KELEM) = I 

A(NELEM) = ATCMP4 

LACNCCLEei )=Net eet) 

[F(K «<€T. S} CL TE 5 

TFCCAES(ATcHP2) eLte cTULZE) GC TO 5 
i= § 

Ke = 6 

ATEMP) = ATeMP2 

GG 1G 330 


wRITe dé eG500) NeMe bo) ep WAMEC KD pNAMEDL) »pNAME( 2) 
FURMATOLonCNU HATCH FUR Riw ¢2ZA4e10FAT COLUMA 


STCr 
BASIS CAKUS 


OC 42C 1 = LyhCue 

[FONAPE(i) .NWE. ICNAM(Le1) OR. NAME( 2) 
TEWVEC = | 

GC TC 4z5 

CCATIALE 

waFITE (6,340) NaMe C1) »NAME(2) 
FOEMAT(cinuNu MATCE FUR VECTOK 4244) 
Ge Te § 


DC 430 1 = laNhRua 
LF CNAME (a) oie eA LINAM( 1 eo) eGReNAME (4) eNEWTCNAM(I,2)) 
LoFCwe! 
GC TG 44u 
CCATIALE 
WRITE (693500) NAME (3)5NAME(4) 
66 TE Ss 
JECIBFCw) = Tbvc€ 
KINEBAS (I becw) = u 
KINEAS(isvticd = ibkLwA 
GE. TE Ss 

RES 
Jj = 
K = 4 


TF (GABS(ATEMP1) «LEe 2ZTOLZE) CC TC Sek 


ATEMP L=aTEMPc 

GE Te 530 

CONTIALE 

TF (NAMECL) «FG. TCS cAND. WAME(Z) 2 EQ. 


TEST tuk SPelT VeCTuR 


OC £22 1 = lyNCUL 

TF (RAwPEC1L) eNE~} TCAAM(I,1)) GC TO 525 
IF (NAMEC EZ) eNEo LCNAM( E423) GE TU 525 
WRITE (6¢,525U) NAME C1) sNAME( 2) 

CONTIAGe 
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o NE. 


oNE> 


1cS2) 


GG TO 530 


ICNAM(1,2))G0 FC 340 


ICNAM(1,2)) GU TU 420 


GO TU 430 


— So a ai A lla ie ling ili i yc i rcs: 


Ae ee Pec CENTIALS 
265.6 ce to £ 
‘CPs C 
of i Zle NRCwWENKunte 
=| Bd By I NCCL=ARLA 
7 iid. LUNDM iNwUweld = WAMECL) 
by a a TCRAN (NRowe ed = WAMEC 2) 
= Gar ¢ 
Es< € TEST wow FV¥He 
214. € 
2} D6 LF CRS eEWsaL aURe GAebYeWE Gu TG 220 
4166 TECKS cEwewt eURe KIeEQeWE) cE TO 230 
| SLts LP UB? cBeewt <uR. Koctuewe? Gu TU 240 
bts TECK2.EU.UN GOs Roce JN) GO TG 2Sv 
thie el TC esu 
2236 eel ALB(NFCW) = ce 
| 22 ie XLE(NFLAd = Leto 
Pa GE TE 25U 
yee Zi ALUC(NFCW) = Ce 
24% ALB (NFCw) = Ue 
Pap Gt TG 25u 4 
2266 24C ALPONKCHW) = Ue 
eae ALAUNEC AD = Let 
23~e A(NPCh) = ~1. 
GE TG <ou 
ett AQNRC®) = a. 
Z€C TA(KROW) = Kren 
LAQCNKC#) = NKGW 
JRORRCW) = Akon 
KINBAS(Natw) = NRUw 
NELEM=AkUa 
wc TC Ss 
€ 
C MATRIA tLeEMeNTs 
Cc 
3e€ J = 2 
K = 4 
[IF (CeESUATEMP1) slE». ZTGLZE) GG TC 32k 
ol TC 4c4% 
2ek JS 
K=6 
He ATEMEL=40 cM Fe 
247 6 GE TC 23 
5436 224 CONTINGE 
246 IF (NAMECL) wt&e TESE sANDe NAME(Z) .EQ. ICSZ) GU TO 35¥ 
. Dene C 
Sls C TEST FUR SPLIT vecTuR 
Pe 2% ¢ 
% SES IG 325 F = Ley NCOs 
a Be y LF (NAMEC LD ote LCONAM(O 1,40) OC TO 325 
Gi TF (NAPeGe) ote TCNAM(1,2)) of TO 325 
¢ 25413 WRITE (Ep od5C) RAME CL) gWAME( 2) 
{ ST» EcfC FCEMATistitsrLIT veCTURK »c2A4) 
ade ik Zee CUNTIAGE 
’ 75% 6 NWECL * Nout + | 
4 x 26JSe TCSL = wAMECL) 
site [CS$2 = NAME Ce) 
bs 7b 2. TCRAM (NUE oad = ICS) 
y JESs LURAMiNLUL ec) = Le S2 
> E46 CACACLCE = wWettem + 2} 
sos ¢ 
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AuvéPT cu FRUM Lilwc AR PRJURAMMING COUE CPM=i, wRITTEN 
Peer. “4 (uPeRaTIUNs RESEARCH, STANFORU UNIVERSITY? 

ERE OHERE 

[LATICN NUMBER UF SUBPROBLEM beEING 
NPLT (ust uot LPT SUBPRCBLEMS IN SEQUENCE Le2epccestintS) 
CUR EMR EER AMMAR RAMA R ESE HARVARD 


lf EF Rep INeRLbD = 


as 
5 
x 
x 


IMPLICIT KEAL*4 (A Cpt H yp CaP phe Zi » REAL¥S (BeOeroV) s 
i iNTeGck*s (L-Net) 

{NTEGER*®2 sheK INCAS ,LAygLE, LA, IE 

INTECERSc Te2STak pL ELCs 1BOND, I ZBKO0 


Cer LAS s,LlLAS 


OCLELE meciSliN & dluudd »,ATEMP EL ATE RP 2 


COMPO R/SLUCKS £TUL dep LTOLPV es ZICCSTs ZIGLRIp ZLTCLSM pORO, QMAg UGA FQEI ¢ 


l wie ep eAgePL uh le edrwl es vhs aN y Oly NRMAX pNEMAXs UB VUCe 
4 we pw pbs yh yeh ep CGeATMAA 


COMPCAR/oLGCKAS bLAMECAL SD e071)» LNAUT( 20,10), ZUBAR(10) gNL INK NSUB Se 
LIZINC gy idohke @LOLM eT OLE NSF LT Ay SEL XSM, 15345) pSFI XC LO) se NSCOL (LO), 
ENLAMDOA Li Gd yLOSTARE E40 ph), IBUSEL (5 940,10), 1 BUBL 5,10) pIGLBl>910) » 
ATZSTAP SU Lede leolules20U) slbotul2lC), 1 ZBND(200) 

ald JOLGeERaS ALOSUEU LU) pXUBS( 20910) pAMATKS(1000) »RHSCLO¢LO), 


. VET wS (Lud pO SELU De SFERST CLL)» TAS(1OCU) »LAS(20, 10) 
COMMUN teracdlice ds XUSbLE 2) B1560) 2 A160), YL OC) py YTEMP (60 ) »DSUM, OPRUD, 
4 UY pUEyL Re Ae SLNAMEL Adee 2) gy NAME CCU) »pNTEMF(2U) 9 SUMINE pMSTATs q 
2th. é LUsJ,T Rw, Ving IVOUTZLICNT, INVERAGs, ITRER Gg ITTSINV,iFFEZ, 
272 = : JLULE Neb a, NCUCyNELEMe Ne TA sNLCLEMeNLE TA yNUELEMpNJETA? 
4 pe liCbd)de [4A lovG) ylLeled2) gl 4( i122) ,KINBAS(122),5H( 00) 
BC 10 - Is ¥ 
}C 3th) Ue 
Ct ie ied 
eC KINBAS Ca) = & 
NRCw® = YU 
TTChK v 
IcSl=¢ 


‘ ££ (Se700L) iNPRCE 
70CC FERMAT tala) 
E INFRGE 
FFRUB sEwe us HETIYAN 


; S READCCSshul) Ki eher Ky Koy (NAMECL eo L= 194) yAT EMPL NAME(S) pNAME( 6)» 
LATEMP? 
1€] FORMAT (441 1CAG ee Ke LAG eK yp Hie 4y EX Ch4 lke Fl2 a4) 
FECKL stwe KEL GO FC 600 
s é TFCKY stwe wth? CU TG 5y 
* ya [FUKE ehuws ENF GO TG LOO 
FEEKL shes ah cANGe Ke. see OOF Gal 
{ 55 TRUK] «FWs GR sANDs K2 oe OG) GC TO 150 
¥ 256 FFEKL sows GO) C22 
“A c7 TFURL «tie G4) oe TE Loy 
ie FFEKEL sh. GH sANDs KZ «EQ. wA) &G=3 
! é EFOKA véus 6 sANDs K2 cEQs GAR GC To 150 
* 3200. fRURL «Ewe Gh «AND. KZ sEue WHY L=4 
% 167s [FCKL stwe wk sANUs Ke sEWs QH) GC TG 150 
" SC GO TCLs Fel ye Gh Gs DCU) gL 
? ; LCC WIEMP (1) = NAME( 3) 
x te NTEMP (2) = KRAMEV 4) 
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* 


os 


221C AVISI=ACCNTSCE CUI MLD EAVIC SD FE LIDAR QIMINCV KLE /NTSOL (5) 
GL TO 34Uu 
232€ ESLACK = VU 
NPL = NCINK} + 1 
OC 2225 Il=Zz_NP1L 
Z& ISLACK = TSLACK * INCUMB ET) 
AV(J)=CONTSLE CUI LIPAV CU) OL SCACK) /NTSCL (J) 
GC TC 3440 
3220 AVI GI=EC(NTSCL A JdmL FAVE SDR TIMED /NTSCL (UU) 
C SAVE ALLULATION AND SOLUTION INFCRMATIGA FOR SUBPROBLEM JU 
24CC CALL S4VeR(U) 
K = NIEMP(2) 
C CUTPIT SCLUTION INFUKMATIiON FCR SUBPRUBLEM J 
WRITE (O92) Jeky (LE NCUMBIKK), KK=1,NCOL) 
é FGRMAT (* SUBT sides ® SOL 15,43 *",2C15) 


Cc TEST lr ALL SUSFROBLEMS HAVE BEEN SOLVED: IF SOe NG BRANCHING 
C NECESSARY 
TF (NJFIA = NSUGS + 1) 22002230C,99S9 
€ 
C CCPFUTATILNS CUPMPLETED; OUTPLT GPTIMAL SULUTICN [NEGKMATION 


ScCC CALL CLISULGING) 
CALL FCLULCKLJTIMt, 1TCT) 
TTCT = JTLME/LiU, 
C CUTPJT ALGURITH*IC PERFORMANCE IAFORMATION 
WRITE (657) TILT 
7 FORMAT (/* TUTAL SCLUTION TIME ="sF7ed2e"SECONDS! 3 
WRITE Co,Gc)d TPHL>NALGrTALU,INTSOL EO sds J=leNSUBS) 

Sec FCRMAT (* TIME IN PRASEL =4,FOeds* SECONOS*/* MASTER PROBL -M S0LVE 
1L2%sllCe* TiMe ss: TCTAL TIME SULVING MASTER PRCBLEM =" yFO.2y' SELON 
20S*/* NUMBER GF TIMES EACH SUBPROBLEM SULVED =",18xX,1015) 

WRITE (6,9) (NSULC JI, J=leNSUBS) 

S FORMAT (* NUMBER UF UISTINCT SULUTICNS GoTAINED IN EACH SUBPRUBLEM 
1 =*,1CI5) 
WRITE (6,91) TSUBS 

€1 FCRMAT (* TOTAL TEME SGLVING SUBPROELEMS =*,Foe29* SECONDS*) 
Gc Te 10 

SSSS SICP 

ENC 
BLCCK CATA 


INITIALIZES GLOBAL PROGRAM CONSTANTS 
SLERUUTINE ADAPTEC FROM LINEAR PROGRAMMING CODE LPM=1l,y WRITTEN 
BY JeAe TOMLIN (GQPERATIGNS RESEARCH, STANFORD UNIVERSITY) 


ANAAO 


IMPLICIT REAL¥*4 (AgCsEmH eg Py Rane d) » REAL*®S (By yXrY) 9 
1 INTEGER*4 {I-N,Q) 

CCOMMCA/ELGCKS LT CLE ZTULPV, ZTCCSTy ZTOL RI» ZTOLSMy CRO, QMA yp QBA VOF 1 + 
1 GeUy Coby dA yuPL ep QM Te Od oQ] y UF y GN QUs NRMAX sNEMAK UBPQCe 
2 WE pW pls QO rQK, QM 2QGeATMAX 

REAL Z2TUL CEL a FE 5/ pLTOLPV/1 2E=4/_ LTCOST/1. E=3/ 9p LTOLK SSL EM4/ 5 
1 2TULSH/ Le E-1UO/ 

INTEGER*4 NRMAX/6U0/ pNTMAX/290/ e NEMAX/ 1000/7 

INTECER*4 GRO/ "ROW "Sy QMA/TMATRES pQEA/*BASI'/, QF I/*FIRS* Sy 
LQEC/* ECF 8s yuBas! "/,QA/4A "/,CPL/ 9 # "/yQMI/° = "Fy 
oels/* 2 ts yCs et "/sQF/ PF S/,UN/*N */7_,CU/*U "Js 
IaB/ td "Lawl Sl "JeWE STE "7,QH/9H "7yQL/IL "Sy 
4uC/'C *Sauhk/ tk "/eQM/°M "/eeG/*G Lhe 

END 

SUBRGLTINE INPLT (i FPRGB) 


€ INFLTS PROGLEM LATA 
159 


Teen cena scitteeatetettensiba dine nat naan ae anna 


lm recai Bae'. = Ce aaa eokane enue essachiaeaitniagnaaanaaninl a sh 


122. C CrECK LR ANY SJEPRUBLEM HAS PREVIUUSLY SEEN SOLVcO UNDER ITS 


12 de C CURKeNT ALLCLATICN 
L24e CALL COML HRI, #) 
I254 Ee Chem «EC. GY GE Fo s004u 
i i26. C cRARCH UCN ALLCCATIUN VARIABLE IN SUGPKOBLEM J 
3 l2le 22CC CALL CMBKAN( JK) 
123. TF (MSTAT Ee OF GU TU 2000 
129. € FIX ALLLUCATIUN TC SUSPRCOBLEM Vv AT LEVEL K 
1390. 22CC JFIX(J) = K 
131. NJFIX = NJFIX + i 
132. JSEEXSH = JGEIXSM + I2STAKUKeJ) 
Nae 3s LF (NSFIA .tT. NSYBS) Gu TO dive 
134. € ALL Sucs FIxXtUs COMPARE SCLLTIUN wiITh INCUMBENT 
le GE {fF (JFIXSM .LE. IZING) GO TO 25C€0 
135. CC 24CC T=1leN3albS 
a ae 24cC INC(T) = sFlxdd) 
128. IZINC = JEIXSM 
139. CALL FCLUCK(STIME, 1TCT) 
140. TCPT = JTIME/1 U0. 
l4ie WRITE (6955) TCOPT, 1ZiNC 
Pade $2 FORMAT (© Time =",t7e2,* SECUNDS: IZINC =", 110) 
143. 2S€@ JFIX€2) = 6 
144. JFIXS® = JFIXSM = [STARCK yu) 
l4>. NJFIX = NuFiX = 1 
140. GC TE 2uug 
147. {2 
L434 C SELECY NEAT SULBPRKUBLEM TO SULVE 
1496 2CCC AVMAX = =LCCCO. 
150i J = <6 
1obs CC 31CC L=hyNSLBS 
LSZ5 IF €JFEXC1) .6T. 0) GU TG 3hVUO 
193. [IF (AWMAK eGte AVI IJ) GU TU 410C 
154. vo= ot 
L556 AVMAX = AVOT) 
L566 ZLEG ‘CONTENGE 
Lois 3z2€C NUSGE (J) = NFSCL (UO) + 2X 
1E3 CALL FCLUCK(UTIME, LTCT) 
1396 C LOAT PRCELEM LATA FUR SUBPRUBLEM J 
16). CALL LDUATAGY) 
1é1. IPAR = J 
162. ITSIAN = 9SS99 
163.6 IFEAS = 9 
L646 € CET CPTIMAL LP=SCLUTICN TU SUBPRCBLEM 
1656 CALL NCRAAL 
165. (3 TEST [LF SuBPKUBLEM J [SS LP-FEASTELE 
L675 IF (MSTAT sews &NI CC Tu 330U 
1636 € STCRe SPTIMAL CLAL Myc TIPLTERS LF CISTINCT FROM PREVIUUS MULT S. 
1696 CALL FISAVR GS) 
S LT. Ly SUPPKLGLEM J LP—FEASIBLEs GeT INITIAL LGwER 8CUND ESTIMATE UN 
L71. € MAX. I¥=UbJe VAL 
172. CALL CETCBC (a) 
a EV3< INT TBE = LNCUMELL) 
4 174. C USE SRANCH=ANO-ECUND KOUTINE TC COMPUTE OPT. IP=SOLUTICN TO 
LF 3% C SLEFPRKUBLEM ¥ 
; lTloe CALL FAéNUBLINITBD) 
5 177. 3200 CALL FCLOCKR (UTI IMech,y LTOT) 
« 173.6 TIME = (JTIMEL = JTLMED/LO00~ 
bd 179. TSLPS = TSLES # TIME 
’ 180. C LPLAT&G supPkKUBL EM SELECTIUN RULE INFORMATICN FOR SUBPROBLEM Jy 
> lel. C TN ALCORLANCE wITh VAtLUc sPECIFILEL FUR [PARM 
182. GO TE (3540954609323 r S400) LPAKM 
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ES ee Ta Ce | PCE See ONO e eT 


él. C 
G26 Cc PrAse 1 
636 € f 
64. DE 1G J=leNSUBS 
45. NLAMCA(G) = & 
éo. KUSCE LD = G ; 
: él. AVESY = Us ; 
636 NSCLUY) = 1 
[oar JFEXGA) = & 
I96 CALL EAPUT (J) 
Tle CC 50 [=l,NLINK 
72 « EC IBSTARGI] ytd) = LOINTIBIIT+L)) 
3% ITSINN = 95999 
4, CALL ACRMAL 
136 1cC CALL FISAVK(N) 
lb i¢ 
ar 2€CC CALL flLucTet IPAk) 
73. NNEWP EL = VU 
The BC 2CC J=lLyNSUBS 
20 LL = NSurc(J) 
eke EKSRE Ee ek 
G26 OG 25C K=]Lybt 
te CC 24C {=iyNetNk 
b+. TF (LESTARC TL pn yd) NE. TBSTARCIT gLISTLyJI) GU TO 250 
eS. 24C CONTINUE 
G66 GC TC 32u0v 
ets 256 CENELURGE 
E83. CALL LOVATALS) 
89. {TSINV = 35599 
SO6 CALL ACRMAL 
Shs NEWPL = WLAMEACIS) 
G2 CALL FISAVR¢(J) 
bi NEWP! = WEAMLA(U) — NeEwPl 
S4e NNEwPIT = NNewPI + NEnwPl 
C56 NSCLOL) = Liste 
Go. 2€C CENTIRGE 
Sl-« IF (NNEWPi)d 4C0Cr40C,2U0 
53.6 4tC UC 50C J=leyNSUBS 
SD « SCC WSCLEiG) = C 
PCD. CALL FCLULK(JTIME, ITU) 
bee ary TPhl = JTIME/1 CU. 
1626 GC fC 2i00 
1€3-. C 
ECG C PHast 2 
ICS. C 
1CG6 C BACKTKALCK TC LAST PKOMISING NUDE IN ALLCCATION=VARTABLES SEARCH 
ic?. C TREE 
IC36 2zccc CALL EBRTRK 
1C3. C IF Clot GF STUKEC NUDES IS EMPTY, COMPUTATIONS ARE CUMPLETED 
lid. TP ChBLE sEGs Gi GE TO. 9000 
Lile 21CC NALC = NALE + } 
li2e CALL FCLULK(UTIME, ITUT) 
} Lide £ SUtVeE MASTER PRCBLEM TO GSTAIN PROMISING NEW ALLOCATION uF 
+ Re Lit. C LINKiwG KRESCURCeE TU SUBPRUBLEMS 
\ bask L256 CALL ALULTE UIP AR) 
; ~ 115.6 CALL FCLULK(UTIMEL yl TuT) 
: ~ Live TALC = TAiti + (JTIMEn ~ JTIMEI/ 100. 
t lid. IPAR = i 
» 119. ¢ TEST FOR FATHUMING GF CURRENT NGCE 
4 12 6 IF (PTACvAL ele. IZEINC) GO TU 2Ooco 
be L21 IZ@AR = INC VAL 
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C 


CECCMPLSITICN KCLFINEs OMLL 
Ce€OMPGslTicn ANG SULUTIUN UF PURE@ZNTEGER LINEAR PRUGRAMS 
(wiTH GeNERAG TNTevtrh vwARTAbLES) WITH BLOCK ANGULAR CONSTRAINT 


MATRICES. 


CHHeeeSEMLITIPLE LCIAKING CUNSTRAINTS CAS E**eeeR& 


C 
C 


AAADOAA 


1¢ 


} 


cu 


GARY As KUCHMAN (UPEKATIUNS FESECARCH) , SEPT. 1976-4 MUD 1 


IMOLICTT REAL®4 (A ylyEm Hg Oe PyRemene 2)» REAL*®S (BbeDyXeV) 

1 bivwttocnk™4 Cim-Ny Gd 

[IATECER*. Shy KINGASstAyLee TAs lc 

INTEGER*e LrAKT,INCKMO, IT VONU,SIVIC pi CbND 

(NTEGER*2 T2STAR,yLELU se IS BNO, i LOND 

INTEGER¥Z IAS,LAS 

COLBLE PRELCISICN &(iguu)} 

-IMENS TU ALD00) pANCCLO) AVC LO) eNTSCL (LO) 

COMMER/OLUCK/ CTEL 2ZEy TUL PVs, ZTUCST, 2ZTCLRUy ZTCLSM pQRUy QMA yg WHA pUF le 
L woUy uber aA rdPL yy QM ly Ud pl pF 2 ON e Que NKMAX pNCMAXKy dB QCy 

ec rab rule wher,» eM epaGy NTMAA 

COMMOCN/3LULCKES UFPAKTCL22) pKEVO NO gL AC VAL ys [COLsLISTL,»I VAL,IOI RK, 

1 NPL VCTeLPTYPEsRUCST, LFeAS, IT PART(LeZ2), I NCUMBiice)s 
2 IVaNet(ouubrlviuv( 500) plebND( 500) 

COMMUER/ EL ULCKS/ RLAPDAL De 20910) y ZNAUT( 20,10)» ZUBARL LO) pNLINKs, NSUB Se 
LIZINC ySEGARgLOUM GL ELLs NIT LX JEL ASMs IbE 9) pUFITAIELON,NSOL (1), 
ENCAMCA LLU) gp losTaARh te4ur lL Ody TDUSEU CS 440910) pL GUBI 5,10) pIKLBId210), 
ZLZSTAR (409 Udy LB1U 623 c0U) s TBdND (20U)¢ 1 28ND (2C0) 

COMMER /pLULK4/ ALOS( ZU, LO) eXUOS (20410) ¢AMATRSULOOG) pRHSILOe1 0), 
INREWS ClLUdsACOL a0 10) pYFIRSTOLLD » TASC LOU0) pL AS62047 10) 

CCOPMMCN cgdALelideds XuBlLecdydhoUds X(E0)-YI60) pYTEMP (60 2 9USUM, DPKG Ds 


i DY pL Ee DP y Ay ILNAME L2dee) yp NAPE (2U) »NTEMF(2U)¢SUMINE eS MSTAT, 
Zz 1UHS eA kCwPy, IvViNysVOUT,ITCNT, INVF RQ, LTRERUG ST TSINV: FEE Zs 
ra! JEULP eaNRUAg ACOLyNELEM,NETA PNLELEMep NCE TAgNUELEM gNUETA, 

4 LEC LEOO dy IA (DUG) SLE 252) LAL Idd) pKINBAS(1 22),J5H(00) 


MAIN PRCCRAM 
CUC8ULWATeS APPLICATION UF ThE VARIGUS STEPS OF THE VECUMPOSI=- 
TICN ACCCRITHM. 


INITLAGi ce FARAMETERS 
CALL FCLUCKIITCT) 
REACOEs lL, ENLA9S49) NSUBSyNLIWKe TPARM,IZUNC 
FCRMAY (51i0) 
REAC (Sel) ChdbL), Lal» NLTNK) 
CO 20 J=aglec 
[CNA (u_1) 


ae 
ICNAM( Joc) = VU 
Tea) = 2b 
ITRFRQ = $9999 
INITSC = & 
PBLL = Y 
IZPAR = Lud 
JEIXONSLBS) = O 
TPAR = yu 
NJFIX = v 


JSFIXSY = yu 
JFIRST(L) = 1 


NALC = V 
TALC = Us 
TSUES © We 


NFL = NLINK *# ] 
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